Select Code to Download

#!perl/bin/perl

...
STAY
<STDIN>;
print "GOOD DAY\n";

$foo = 1; $foo ? \& { print "foo"} : \& { print "bar"};