Help for this page
open my $IN, "<:raw:perlio", 'filename.zip';
open my $IN, "<", 'filename.zip'; binmode $IN;