Help for this page

Select Code to Download

Select or download this
```
print while (<$sock>);
```

Select or download this

#!/usr/bin/perl
use CGI;
...
my @keys = $q->param;
print "Content-type: text/plain\n\n";
print "$_ ",$q->param($_),"\n" for (@keys);