Select Code to Download

use warnings;
use strict;
...
}
$a=1
print $a;

use strict;
use warnings;
...

print $y,$/;
foo();