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

##</code><code>##

Can't locate Win32/API.pm in @INC (@INC contains: D:/Exoddus/Util/Tools/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.