use Getopt::Std;
%options=();
getopts("od:fF",\%options);
$sum=0;
$sum2=0;

# like the shell getopt, "d:" means d takes an argument
 if (defined ($options{o}) ){
                       $sum+=1;}
 if (defined ($options{d})){
                       $sum+=1;}
 if (defined ($options{f})){
                       $sum+=1;}
 if (defined ($options{F})){
                       $sum+=1;}
#zusätzliche Argumente am Ende
 if ($ARGV[0]){
    $sum2+=1;}
 if ($ARGV[1]){
    $sum2+=1;}
 if ($ARGV[2]){
    $sum2+=1;}

print "sum: " .$sum;
print " sum2: ". $sum2;

if ($sum == 4 && $sum2 ==0){
 print "Alles i.O!!!";
 
 }
 
else 
{
      print "Falsche Parameter!!!";
      &Usage;
}


sub Usage{										
	print "Usage: test.pl [Parameter] (Zahlenwert)";
	print "\nBeispiel: blablabla";
	}