Help for this page
#!perl/bin/perl ... STAY <STDIN>; print "GOOD DAY\n";
$foo = 1; $foo ? \& { print "foo"} : \& { print "bar"};