my $category = $cmdline{c} || 'Test';
my $quote_symbol = $cmdline{q} or die "No quote symbol.";
my $ref_symbol   = $cmdline{r} or die "No reference symbol.";
my $engine       = $cmdline{e} or die "No engine.";
my $session      = $cmdline{d};
my $limit        = $cmdline{l} or die "No limit.";
my $max_limit    = $cmdline{x} or die "No max limit.";
my $modus = $cmdline{m} || '';
my $size = $cmdline{s} || $cmdline{v} or die "No size or volume.";

my $category     = $cmdline{c} || 'Test';
my $quote_symbol = $cmdline{q} or die "No quote symbol.";
my $ref_symbol   = $cmdline{r} or die "No reference symbol.";
my $engine       = $cmdline{e} or die "No engine.";
my $session      = $cmdline{d};
my $limit        = $cmdline{l} or die "No limit.";
my $max_limit    = $cmdline{x} or die "No max limit.";
my $modus        = $cmdline{m} || '';
my $size         = $cmdline{s} || $cmdline{v} or die "No size or volume.";