#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

my (@files,$opt_a,$opt_h);

#
GetOptions("-a" => \$opt_a,
            "-d"  => \@files,
            "-h"  => \$opt_h,);

help() if ($opt_h);

if ($opt_a){
    print "not implemented.";
}
if (@files){
    print $_,"\n" for(@files);
    die "Nicht genügend Dateien" if(scalar(@files) < 2);
}

sub help{
    print "help";
    exit;
}