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