open my $IN, "<:raw:perlio", 'filename.zip';

##</code><code>##

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