I would think that you want a comparison, not an assignment on line 3. I.e.:

my $ok = "N";
my $zipcheck = Archive::Zip->new();
$ok = "Y" if ($zipcheck->read($arczip) == AZ_OK);
unlink $originalfile if ($ok eq 'Y');
[download]

Hope this helps,

-pete
"Worry is like a rocking chair. It gives you something to do, but it doesn't get you anywhere."