Select Code to Download

 my %command=
  (
...
  my $sub = $command{$cmd};
  $sub = $command{help} if not defined $sub;
  $sub->(@args);

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/