use strict;
use warnings;
use Data::Dump qw/ddx/;
use autodie;



my $dir  = "/tmp";
my $file = "$dir/tst_unlink";

open my $fh, ">>", $file;

print $fh "ENTRY ".__LINE__;

ddx <$file*>;

unlink $file;

print $fh "ENTRY ".__LINE__;

ddx <$file*>;

eval { link $fh, "${file}_new"; } or warn $@;

eval { link $file, "${file}_new"; } or warn $@;


ddx <$file*>;

__DATA__