Help for this page

Select Code to Download

Select or download this

sub is_zip {
   #Load the file
...
   CONTINUE:
   #Check $status
}

Select or download this

#Read data into $file
if ($file =~ m/^\x50\x4B\x03\x04/) {
...
} else {
   #Parse as something else
}