#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;

my ($opt_a, $opt_d);

# Optionen auswerten
GetOptions(
    a          => sub { die "noch nicht implementiert" },
    d          => \$opt_d,
    'h|help'    => \&help,
) or help();

# Restliche Argumente in @files
my @files = @ARGV;

# Wenn $opt_d, dann müssen zwei Argumente da sein!
die "zu wenig Argumente" if $opt_d && scalar @files < 2;
 
# und so weiter

sub help {
    print <<EOT;
Usage: ...
EOT
    exit -1;
}