#!/usr/bin/perl

use PDL::IO::FastRaw;

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

$pdl = $pdl->transpose;

writefraw($pdl, "mozg-odwrocony");
