#!/usr/bin/perl $metodo = $ENV{'REQUEST_METHOD'}; if ($metodo eq "POST") { $in=; $input = $in; } else { $input = $ENV{'QUERY_STRING'}; } @input = split(/&/,$input); foreach $i (0 .. $#input) { ($key,$value)=split(/=/,$input[$i],2); $key=~ s/%(..)/pack("c",hex($1))/ge; $value=~ s/%(..)/pack("c",hex($1))/ge; $value=~ s/\+/ /g; $entries{$key}=$value; } print "content-Type: text/html\n\n"; #------------------------------------------------------- print " \n"; #colocar aqui o código do programa... print " ";