#!/usr/bin/perl

# Requires the PDL module (http://www.perl.com/CPAN/modules/by-module/PDL)
# and the brain and brain.hdr files as described in earlier examples.
use PDL;
use PDL::IO::FastRaw;

$brain = readfraw("brain", {Dims => [351,412], ReadOnly => 1,});

$supplement = sec($brain, 85, 376, 40, 142);

# Insert $supplement into $brain
ins(inplace($brain), $supplement, 79, 0);

writefraw($brain, "mad-scientist");