note
Utilitarian
Assuming your file association is correct<br>
Windows 7 Enterprise with Perl 5_16 from active state
<c>
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>
</c>
Perl's file association is to gvim on this box though<p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-681898">
<c>print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."</c>
</div></div>
1038453
1038453