Select Code to Download

#!/usr/bin/env perl
use warnings;
...

sub foo {print "foo: "}
sub bar {print "bar: "; chdir '/nodir'}

foo: result=1
bar: result=0