Select Code to Download

use CGI;
my $q = CGI->new({foo=>'bar'});
print $q->param('foo'),$/;
...
    print "Empty", $/ unless defined $q->param('foo');
}
print $q->param('foo'),$/;