Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
my $cgi = new CGI;
my $_name = $cgi->param('name') || '';
...