Select Code to Download

#!/usr/bin/perl

...

print "test1 from fred is: $fred::test1\n";
print "test2 from fred is: $fred::test2\n";