#!/usr/bin/perl

$zimage = join "", <>;

# this is what you might call DODGY!

($boot, $kernelgz) = $zimage =~ /^(.*?)(\x1f\x8b......\x02.*)\z/s;

defined $kernelgz or
	die "Can't grok - is this a [b]zImage?\n";

open OUT, ">boot"; print OUT $boot; close OUT;
open OUT, ">kernel.gz"; print OUT $kernelgz; close OUT;
system "gunzip -N kernel.gz";