#!/usr/bin/perl

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

GetOptions('e=s' => \my $param1,
               'm'    => \my $param2,);

if($param1){
    print 'Option e gesetzt: ',$param1,"\n";
}

if($param2){
    print "Option m gesetzt\n";
}