#!/usr/bin/perl



# Estas instrucciones asignan el valor de la suma al primer sumando...

%args= &getcgivars ;

$anterior = 0 + $args{'anterior'};

$suma = $anterior +  $args{'numero'};





# Esta rutina lee las variables y las coloca en un arreglo

sub getcgivars {

    local(%in) ;

    local($name, $value) ;



    # Resolve and unencode name/value pairs into %in

    foreach (split(/[&;]/, $ENV{'QUERY_STRING'})) {

        s/\+/ /g ;

        ($name, $value)= split('=', $_, 2) ;

        $name=~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/ge ;

        $value=~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/ge ;

        $in{$name}.= "\0" if defined($in{$name}) ;  # concatenate multiple vars

        $in{$name}.= $value ;

    }



    return %in ;

}





"Content-type:text/html"



<html>

<body>

<div align="center">



<form method="get" action="suma.cgi">

  <h1>

  $suma

  +

  <input type="text" name="numero" size="3">

  <input name="anterior" type="hidden" value="$suma">

  =

  <input type="submit" name="calcular" value="calcular">

  </h1>

</form>

</div>

</body>

</html>