Select Code to Download

use strict;
use warnings;
...
foo( substr($x,2,1) ); # crashes here
print "Alive!\n"; # not reached
sub foo {}

use strict;
use warnings;
...
foo($y); # no-op
print "Alive\n"; # we get here just fine
sub foo {}