Select Code to Download

#!/usr/local/bin/perl -w
use CGI qw(:standard);
#my $name = undef; # is ok, but you'll get a warning if $name is blank
+.
my $name = param("name") || ''; # better for warn!
print "Content-type: text/html\n\n"; # Setup the header for the browse
+r
print "value = ",$name, "\n";

print "Content-type: text/html\n\n"; # Setup the header for the browse
+r
my $name = param("name") || '';
# Allow only numbers, letters and _
...
print 'Error: Bad input Format';
exit; # Stop script
}