my $pfad = shift; # oder $pfad = $ARGV[0];
die('Fehler: kein Verzeichnis angegeben!') unless defined $pfad;
die("Das Verzeichnis [$pfad] existiert nicht") unless -e $pfad;
die("[$pfad] ist kein Verzeichnis") unless -d $pfad;