my $p = new Getopt::Long::Parser;
$p->getoptions();

print STDERR Data::Dumper::Dumper( \$p->getoptions() );
print STDERR Data::Dumper::Dumper( \@ARGV );

erzeugt:
$VAR1 = \'1';
$VAR1 = [];

Wobei ich erhlich zugeben muss, dass ich mir das Mdoul Getopt::Long noch nicht näher zu Gemüte geführt habe.
Hast du ein kurzes Tutorial zur Hand?
mfg pktm