Help for this page

Select Code to Download

Select or download this
```
my ($basename) = $0 =~ m/.*\/(.*)/;
```
Select or download this
```
my $basename = (split /\//, $0)[-1];
```