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

my @size;
my $help;
my $file;

GetOptions("size=i@" => \@size,
           "help" => \&help,
           "file:s" => \$file);

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);
  }