Help for this page

Select Code to Download


  1. or download this
    my $ME = $0;
$ME =~ s/.*[\\\/]//;
# $ME =~ s/\.[^.]+$//;