#!/usr/bin/perl
use warnings;
use strict;
use File::Find::Rule;

print" Welches Verzeichnis soll ich löschen? \n";
my $ordner = <STDIN>;
chomp $ordner;

# finde alle Dateien im Ordner "$ordner"
my @files = File::Find::Rule->file->in( $ordner );

# verwerfe alle Dateien in "@files" die Softlinks (ln -s ...) sind
my @no_links = grep{ !-l $_ }@files;

# entferne alle Dateien in "@no_links"
unlink @no_links;

# finde alle Ordner im Ordner "$ordner"
my @dirs = File::Find::Rule->directory->in( $ordner );

# entferne nacheinander alle Ordner, die in "@dirs" stehen.
rmdir $_ for @dirs;