use strict;
use warnings;

use Getopt::Guided qw( getopts );

sub run ( \@ ) {
  my @argv = @{ $_[ 0 ] };

  return 2 unless getopts '-a:b', ( my %opts ), @argv;
  0
}

exit run @ARGV
