#!/usr/bin/perl -w

use Math::MatrixReal;

$macierz = Math::MatrixReal->new_from_string(<<'MATRIX');
[ 1 2 3 ]
[ 4 5 6 ]
MATRIX

$macierz2 = Math::MatrixReal->new(3,2);

$macierz2->transpose($macierz);

print $macierz2;
