use strict;
use warnings;

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