Select Code to Download

#!/usr/bin/perl
use strict;
...
print "pre\n";
something();
print "post\n";

package Foo;
my $error;
...
}

1;