Miscellany

#!/usr/bin/perl
%args=split(/=|&/,(<STDIN>));
$guardado = 0 + $args{'guardado'};
$resultado = $guardado +  $args{'numero'};
print <<IMPRIME
"Content-type:text/html"

<html>
   <head>
      <title> SHEILA </title>
   </head>
   <body>
      <div align="center">
      <font color="#CC0066" size="10" >
      <form method="post" action="suma.cgi">      
         $resultado +
         <input type="text" name="numero" size="5">
         <input name="guardado" type="hidden" value="$resultado">  =
         <input type="submit" name="calcular" value="Calcular">
      </form>
      </font>
      <font color="#CC0066" size="4" >
      <br><br><br>Sheila Reyes Guerrero
      <br>MRT grupo "B"
      </font>
      </div>
   </body>
</html>
IMPRIME