Help for this page

Select Code to Download

Select or download this
```
my $iam = `basename $0`;
chomp $iam;
```
Select or download this
```
(my $iam = $0) =~ s,.*/,,;
```

Select or download this

use File::Basename;

my $iam = basename $0;