Package GetoptReplacer;
sub foo { }
sub bar { }
our $baz;

# magic!
my %g = %Getopt::;
%Getopt:: = %GetoptReplacer::;
our $AUTOLOAD;
sub AUTOLOAD {
  goto &$g{$AUTOLOAD};
}

# less magic
1;