First and foremost:

use strict;
use warnings;  # or -w
[download]

Additionally, check the return of open (or die "Error: $!";), close INPUT, and verify that wzzip isn't the one waiting for 'press any key'...

Also, verify that you really want $zipfile = <INPUT> (returns a line from the file -- if this is the first such invocation, the first line). Depending on your implementation, you may want to use something like:

@zipfiles = <INPUT>;
foreach my $zipfile (@zipfiles) {
# unzip $zipfile
}
[download]