Help for this page

Select Code to Download


  1. or download this
    SUB my_func
    COMMAND1
    COMMAND2
ENDSUB
CALL my_func
  2. or download this
    sub my_func {
   command1;
   command2;
}
my_func;
  3. or download this
    $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/