If you happen to use Windows you may get the raw commandline with

use Win32::API;
my $GetCommandLine = Win32::API->new('kernel32', 'GetCommandLine', [ ]
+ , 'P' );
$cmdline = $GetCommandLine->Call();
[download]

In other case you will probably want something like:

BEGIN { @ORIGINAL_ARGV = @ARGV };
use GetOpt::Long ...
...
[download]

I don't think you should add the options to $0 itself, but I guess you may if you want to.

HTH, Jenda