Select Code to Download

#!perl -w
use strict;
...
}

1

local *IO::File::open = sub {.....}

#!perl -w
use warnings;
...

Test::subs();
exit(0);

package Test;

...
}

1