##

#!/bin/perl

use CGI;

my $self=new CGI;

print $self->header;

for $a ($self->param()) {
  print "$a ... ",$self->param($a),"
";
}

$fh=$self->param('foo');

print while $_=<$fh>;