Help for this page

Select Code to Download

Select or download this
```
BEGIN
 {
...
    $dir = $1;
   }
 }
```

Select or download this

use File::Basename;

my $dir = dirname($0);