#!/usr/bin/perl

die("Usage: $0 kernel.gz outfile.gz") if ($#ARGV < 1);

@stat = stat($ARGV[0]);
die("Too small:$ARGV[0]") if ($stat[7] <= 0);

open(INF, $ARGV[0]) || die("Cannot read $ARGV[0]");
$f = join('', <INF>);
close(INF);
while(length($f) < 4194304)
{
  $f .= "\xff";
}

open(OUT, '>'.$ARGV[1]) || die("Cannot write $ARGV[1]");
print OUT $f;
close(OUT);
