Help for this page

Select Code to Download


  1. or download this
    $this_proc = 
           $0                   # Filename of code (as invoked)
               =~               # "Perform" Regular Expression
    ...
                   $1           #   Return the filename
               :                # Otherwise (Else)
                   $0;          #   Return the filename as invoked