Help for this page

Select Code to Download

Select or download this
```
(my $this_proc = $0) =~ s:^.*/::;
```

Select or download this

$this_proc = $0 =~ /^.*\/(.+)$/ ? $1 : $0;