Select Code to Download

open my $data, '<', "data.bin";
binmode($data);
...
    binmode($file);
    print $file $buf;
}

open my $data, '<', "data.bin";
binmode($data);
...
    read $flash, my $buf, 0x200;
    print $file $buf;
}