Select Code to Download

use strict;
use CGI qw(:standard); 
...
else {
   print "undef value\n";
}

my $foo = param('foo') || '';