unless ( -l "foo" ) { # we get here fine
    #*now* the link is created
    open( FH, ">>foo" ) or die "foo: $!";
    #and now it's removed again
}
die "Link attack detected" if ( -l "foo" );
#too late, the link is gone already, so we didn't die.