open(F, "file.zip") || die "File open failed: $!\n"; if(read(F, $buffer, 2)){ if($buffer eq 'PK'){ print "We have a zip\n"; }else{ print "No zip here\n"; } } close(F);