#!/usr/bin/perl

die "Usage: hexperlscript <blocksize> <destination file>\n" unless @ARGV == 2;
($input, $output) = @ARGV;
if ($input % 512 == 0)  {
$input = $input * .5;
open ( DEST, '>>', $output ) or die "Cannot create ouput file. $! \n";
while (1 < 2) {
for(0..0xff){$n=sprintf"%02x",$_;print DEST "$n" x $input;}
print DEST "$n" x $input;
}
}
else {
    print "Blocksize must be divisable by 512.\nExiting.\n";
END;
}