use strict;
use prompt;
use Getopt::Long;

my @size;
my $file;

Getopt::Long::Configure qw(permute debug);

GetOptions("size=i@" => \@size,  # Arrayreferenz
           "help"    => \&help,  # Funktionsreferenz
           "file:s"  => \$file,  # Skalar-Referenz
           "<>"      => \&oops) || die("Something's wrong\n");

print "Size: ",join(",",@size),"\n";
print "File: ",$file,"\n" if (defined($file));

sub help
  {
  print "Hurra! Hier ist die Hilfefunktion\n";
  print "Sie verlassen nun das Programm $0\n";
  exit (0);
  }

sub oops
  {
  my $opt = shift;
  print "Oops - falsche Option $opt!\n";
  }