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