Select Code to Download

#! /usr/bin/perl
use warnings;
...
use test2();
my $output = testroutine();
print $output, "\n";

$ ./test.pl 
This is a test