Help for this page

Select Code to Download


  1. or download this
    sub Basename
{
        return $0 =~ m!/! ? $0 =~ m!/?([^/]+$)! : $0;
}