Select Code to Download

sub more { print "more()\n" }
sub fallover { print "fallover()\n" }
...
if ($command eq "laugh") {
    fallover;
}