Help for this page

Select Code to Download


  1. or download this
    use File::Basename;
my $iam = basename $0;
  2. or download this
    (my $iam = $0) =~ s,.*/,,;