Thanks folks. Between your comments and a quick search (Is it possible to include GetOpt flags in $0), here is a stab at reading the command line directly:

if ($^O=~/win/){
    use Win32::API;
    my $GetCommandLine = Win32::API->new('kernel32', 'GetCommandLine',
+ [ ] , 'P' );
    $cmdline = $GetCommandLine->Call();
    #Parse Command Line, into @ARGV if desired
}
[download]

I haven't gotten it to work on my machine yet (the error follows), but I think that it's a configuration issue on my end. Thanks again.

Can't locate Win32/API.pm in @INC (@INC contains: D:/Exoddus/Util/Tool
+s/Scripts C:\Perl\lib C:/Perl/lib C:/Perl/site/lib .) at C:\Documents
+ and Settings\nburger
\Desktop\PerlTemp\dirComptest.pl line 4.
BEGIN failed--compilation aborted at C:\Documents and Settings\nburger
+\Desktop\PerlTemp\dirComptest.pl line 4.
[download]