Select Code to Download

package Pack;
my $foo = 'pack';

...
}

1;

#!/usr/bin/perl -w

use strict;
use Pack;

print "$foo\n";