Select Code to Download

#!/perl -wT
use strict;
...
bar();

print "$foo $bar\n";

#!/perl -wT

...
bar();

print "$foo $bar\n";