What about the following?

sub my_main
{
  my $first = shift(@_);
  local @ARGV = @_;
  GetOptions(...);
}
[download]

It's even cleaner code (better encapsulation).