It seems such an option is not present in File::Touch. I can't find it in any other module, either (but my CPAN searching skills are below average, I usually can't even find a module I've used).

But what you want is easy to implement using plain Perl functions: instead of touching the old symlink, create a new one and rename it over the old one:

#! /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();
[download]