Select Code to Download

perl -le '$choice='1'; %hash=( '0' => \&one, '1' => \&two ); $hash{$ch
+oice}->(); sub one {print "one"}; sub two {print "two"}'

$\="\n"; # output record separator
$choice='1';
...
twofish
one
onefish