Select Code to Download

use warnings;
no strict;
...
print $::fh "Doesn't work\n";
package Other;
print $::fh "Works\n";