use Win32::OLE('in');

my $class = "HardLink.Object.1";
my $hardlink = new Win32::OLE($class);

my $sNewFile = "D:\folder\somefile.txt";

my $sExistingFile = "D:\somefile.txt";
my $Result = $hardlink->CreateNewHardLink($sNewFile, $sExistingFile);