sub mail_results {
    my $file = 'D:\Sysad-perl\scripts\Reports\AntiVirus Status\mailrpt
+.txt';

    if ( -e $file ) {
        #
        # Mail the report.
        my $sender = new Mail::Sender {smtp => 'synplcty.synplicity.co
+m', 
             from => 'mshember@synplicity.com'};
        
                $sender->MailFile({to => 'mshember@synplicity.com',
        subject => 'McAfee AVP Level Report',
        msg => "Here is today's report.",
        file => $file}    );
    }
    unlink $file or $! == 2 or die "Cannot unlink $file: $!";
}
[download]

This is the message

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.
[download]

I wonder if the fact that it is win32 causing the problem?