use Getopt::Long;

my $datei;

GetOptions('-f=s' => \$datei,
            '-f' => \$datei,);