Help for this page

Select Code to Download


  1. or download this
    BEGIN
     {
      $0 =~ '(.*[\\\/])\w+\.\w+$';
      $curr_dir = $1 || "./";
     }