Select Code to Download

sub mail_results {
    my $file = 'D:\Sysad-perl\scripts\Reports\AntiVirus Status\mailrpt
+.txt';
...
    }
    unlink $file or $! == 2 or die "Cannot unlink $file: $!";
}

Cannot unlink D:\Sysad-perl\scripts\Reports\AntiVirus Status\mailrpt.t
+xt: Permission denied at D:\Sysad-perl\scripts\Reports\AntiVirus Stat
+us\avpcheck.pl line 3
65.