unlink() returns the number of files that are deleted. If you want to check whether all files are deleted, something like:

my $deleted = unlink @file;
die "Only deleted $deleted out of ".@file." files.\n" if $deleted != @
+file;
[download]

would be more appropriate.

Liz