if ( defined(@ARGV) )                                   #wenn ein Parameter uebergeben wird
        {
        if ( $ARGV[0] eq '-h')                          #wenn der Parameter "-h" ist
            {
            help;                                       #aufruf der Function "help"
            }
            
        while (@array=each(%directories))               #aufruf des Hash in ein array
            {
            if ($array[0] eq $ARGV[0])                  #wenn abgearbeitetes array gleich der Eingabe
                {
                print "$array[1]\n";                    #print Wert des arrays
                }
            }    
        }
        
    else
    
        {
        help;                                           #aufruf der Function "help"
        }