#!/usr/bin/perl
use strict;
use warnings;

my %directories = (
'A' => 'verz1 verz2',
'B' => 'verz1',
'C' => 'verz1 verz2 verz3',
);

if ( @ARGV > 0 )
#wenn ein Parameter uebergeben wird
{
  my $cmd=shift(@ARGV);
  #wenn der Parameter "-h" ist
  if ( $cmd eq '-h')
  {
    help();
  }
  elsif(exists($directories{$cmd}))
  {
    my $dirs=$directories{$cmd};
    print "DIRS: $dirs"
  }
  else
  {
    print "NO Command $cmd Found!\n"
  }
}
#aufruf der Function "help"
else
{ help(); }

sub help
{ die "usage $0 [-h | ".join(' | ',keys(%directories)))."]\n"; }