#! /usr/bin/perl
use strict;
use warnings;

use File::Touch qw{ touch };

sub show_stat {
    system qw( stat file link );
}

unlink qw( file link new_link );
touch('file');
symlink 'file', 'link';
show_stat();

sleep 1;
symlink 'file', 'new_link';
rename new_link => 'link';
show_stat();