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