Help for this page

Select Code to Download


  1. or download this
    use File::Basename;

my $MyName = (fileparse($0, '\..*'))[0];