Help for this page

Select Code to Download

Select or download this

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