open my $IN, "<", 'filename.zip';
binmode $IN;