use strict;
use warnings;

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

##</code><code>##

$ ./838783.pl /foo/bar
dir=/foo/bar