#!/usr/bin/perl

# Wymaga modulu PDL - (http://www.perl.com/CPAN/modules/by-module/PDL)
# i plikow mozg oraz mozg.hdr opisanych we wczesniejszych przykladach.
use PDL;
use PDL::IO::FastRaw;

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

$dodatek = sec($mozg, 85, 376, 40, 142);

# Insert $dodatek into $mozg
ins(inplace($mozg), $dodatek, 79, 0);

writefraw($mozg, "szalony-naukowiec");
