open my $data, '<', "data.bin";
binmode($data);

my $chunk = "chunk";

foreach (1..5){
	open my $file, '>', "$chunk$_";
	binmode($file);
	read $flash, my $buf, 0x200;
	print $file $buf;
}