Select Code to Download

package Foo;

use strict;
...
}

return 1;

#!/usr/bin/perl
use strict;
use warnings;
...

my $object = Foo->new();
print $object->method();