if ( -l $filename ) {
    die "Ich will kein symbolischen link\n";
}
open my $fh, '<', $filename  or  die $!;