$query->param('Action','nothing yet');
# or
$query->param(-name=>'Action', -value=>'nothing yet');

##</code><code>##

<input type="submit" name="Action">

##</code><code>##

if ($query->param('Action')) {
	# do stuff
}

##</code><code>##

if (my $foo = $query->param('foo')) {
	#do stuff with $foo
}

##</code><code>##

open PUBFILE, ">$PUBFILE" || die "do i have permission? $!";

##</code><code>##

use CGI::Carp qw(fatalsToBrowser);

##</code><code>##

drwxrwxr-x    2 jeff     jeff         4096 Apr  3 01:37 ./
drwxr-xr-x   19 jeff     jeff         4096 May  8 23:46 ../
-rw-rw-r--    1 jeff     jeff        11781 Mar 31 01:10 back.jpg
-rw-rw-r--    1 jeff     jeff         2078 Mar 31 01:11 bar.jpg
-rw-rw-r--    1 jeff     jeff          274 Apr  3 01:37 index.html