use strict;
use warnings;
my $file = 'C:/tmp/file1.txt';
my $link = 'C:/tmp/link_to_file1.txt';
link $file, $link or die "Cannot link $link to $file:$!\n";