use CGI;
my $page=new CGI ;
if (! $page->param() )
        {
        print ".. will NOT read from STDIN\n";
        }
        else
        {
        print ".. will read from STDIN\n";
        foreach ( $page->param () )
                {
                print "$_ = @{[$page->param ($_)]}\n";
                }
        }