use Data::Dumper; sub prova_get() { my $out=""; $out ="Set-Cookie: prova".int(rand(10))."=".int(rand(10000))."\n"; # create a random cookie $out.="Content-type: text/html\n\n"; $tmp=Dumper(%sent_headers); $out.="
%_GET\n".Dumper(%_GET)."\n\n%_POST\n".Dumper(%_POST)."\n\n%_COOKIE\n".Dumper(%_COOKIE)."\n\n%sent_headers\n".$tmp.""; $out.=""; return $out; } 1