Select Code to Download

#!/usr/bin/perl

...
sub foo { print "sleeping in foo\n"; sleep(10); }
sub bar (\%) { print "sleeping in bar\n"; sleep(10); }
sub baz (%) { print "sleeping in baz\n"; sleep(10); }