Help for this page

Select Code to Download

Select or download this
```
use File::Basename;
print dirname $0;
```

Select or download this

print $0 =~ /(.*)\\/;
# or if you want the trailing backslash
print $0 =~ /(.*\\)/;