Select Code to Download

# -*- Perl -*-
package Foo;
...
1;

__END__

#!/usr/bin/perl

...
});

__END__

    warn $caller "no good for me\n";