#!/usr/bin/perl 
use warnings;
use strict;
use File::Find::Rule::directory;
print" Welches Verzeichnis soll ich löschen? \n";
my $directory = <STDIN>;
chomp $directory;
my @files = File::Find::Rule->file->in( $directory );
my @no_links = grep{ !-l $_ }@files;

unlink @no_links;

my @dirs = File::Find::Rule->dir->in( $directory );
rmdir $_ for @dirs;