Select Code to Download

 
#!/usr/bin/perl
use CGI qw(:standard);
...
my $name = param('name');
print header();
if ($name) { print "Welcome " . $name }