Select Code to Download

#!/usr/bin/perl -w
use CGI qw(param standard);
...
sub main{
    print "this is sub main!";
}

#!/usr/bin/perl
use CGI qw(param);
...
    </form>
    ~;
}