package param;
%options;
@parameter;
$help;

my @zeichen;
    foreach(@ARGV)
    {
        if($_ =~ /^--(.*)(:?=(.*))?/)
        {   if($2)
            { $param::options{"$_"} = $2; }
            else
            { $param::options{"$_"} = 1; }
        }
        elsif($_ =~ /^-(.*)/)
        {
            @zeichen = split ( // , $1);
            foreach(@zeichen)
            {
                $param::options{"$_"} = 1;
            }
        }
        else
        {
                push(@param::parameter,$_);
        }
    }
    $help =  ($param::options{"help"} || $param::options{"h"});

1;