Select Code to Download

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