Select Code to Download

#!/usr/bin/perl

...

my $output = testroutine();
print $output, "\n";

# MyTest.pm

...
}

1;