#!/usr/bin/perl

use PDL::IO::FastRaw;

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

$pdl = $pdl->transpose;

writefraw($pdl, "brain-transpose");