C:\Users\utillitarian>type test.pl
#!/usr/bin/perl
$dir=$ARGV[0];
use Data::Dumper;
print Dumper(\@ARGV);
print "$dir\n";
print shift;

C:\Users\utillitarian>perl test.pl foo
$VAR1 = [
          'foo'
        ];
foo
foo
C:\Users\utillitarian>