#!/usr/bin/perl 
# rmtree2 - lösche vollständige Verzeichnisbäume wie rm -r
use File::Path;
die "Verwendung: $O verzeichnis ..\n" unless @ARGV;
foreach $dir (@ARGV) {
  rmtree($dir);
}