here is another example:

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;
}
[download]

thats so easy now that i think about it. hell i use the foreach loop alot in some other code i have. its a wonder i didnt think about this before now, anyway thanks for the input :) you could even make it read in so many chunks at a time or split up the file in other words (why? i dunno):

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;
}
[download]