unless ( -l "foo" ) {
    open( FH, ">>foo" ) or die "foo: $!";
}
die "Link attack detected" if ( -l "foo" );