use Getopt::Long qw(:config require_order);
Getopt::Long::GetOptions(
        'domain=s' => \$domain,
        'help!' => \$help
);
print "DOMAIN IS $domain\n";