use file::Copy;

my $testfile;
my $rtn;

$testfile = "\\\\fileprint-01\\Company\\HFACCE~1\\IT\\dev\\test\\test.txt";
#$testfile = "Q:\\Company\\HFACCE~1\\IT\\dev\\test\\test.txt";
#$testfile = "C:\\temp\\test.txt";
print $testfile . "\n";
$rtn = unlink $testfile;
print $rtn;