Help for this page

Select Code to Download


  1. or download this
    ( our $path = $0 ) =~ s/\\[^\\]*$//;
BEGIN { print $path; }