use File::Path qw(remove_tree);

remove_tree( $verzeichnis );