Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;

my $directory = shift;
print "dir=$directory\n";   # just for debug

Select or download this
```
$ ./838783.pl /foo/bar
dir=/foo/bar
```