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

read $data, my $buf, 0x1000000;

my $copy = "copy";

foreach (1..5){
	open my $file, '>', "$copy$_";
	binmode($file);
	print $file $buf;
}