Trying to delete some temp files from a set of servers Running it semed to work but now the unlink returns 1 which is good but the file is actually not deleted. The files are hidden but read/write and are on windows 2000 servers I would expect a 0 if it cannot delete. Any ideas?

foreach (<SERVERLIST>)
    {
        my $servername=$_;
        chomp($servername);
        if (!($servername=~/^#/)&& ($servername))
        {## no #'s and not empty do this
            my $pathtocache='//'.$servername.'/'.'e$';
            opendir(DIR, $pathtocache);
            my(@files) = grep {/^VSPCache/i } readdir(DIR);  ## give m
+e a list of only VSPCache files
            closedir(DIR); ## close directory handler
            foreach (@files)
            {
                my $filename=$_;
                my $file2del=$pathtocache.'/'.$filename;
                my $unlinkstat=unlink($file2del);
                if ($unlinkstat==0)
                { ## add unsuccessful delete to error array list to be
+ sent out later
                    push @errlist, $file2del."\n";
                }
            }
        }
    }
    close(SERVERLIST);
[download]