All I have are a couple of neat coding tips.

First, here's a neat Perlish way of setting defaults:

my $parameter_value = $query->param('Action') || 'default value';
[download]

If the Action parameter isn't passed to the script, $query->param('Action') returns undef, which *evaluates to false* in perl (see What is true and false in Perl? for the rules) and thus $parameter_value gets the default value.

You can also check to see whether a value is defined using defined $value.

perl -e 'print "How sweet does a rose smell? "; chomp $n = <STDIN>; $r
+ose = "smells sweet to degree $n"; *other_name = *rose; print "$other
+_name\n"'
[download]