#! /usr/bin/perl -w
use warnings;
use strict;	
use PDL;
my $matrixM = pdl  [ [ 1, 2,-1,-1],
                     [ 1, 2, 2, 1],
                     [ 1, 1, 1, 2],
                     [-2,-1, 1, 2] ];
my $matrixB = pdl [ [5],[10],
                    [8],[-5] ];
my $matrixX;
print "\$matrixM = ", $matrixM,"<br>\n";
print "\$matrixB = ", $matrixB,"<br>\n";
print "\$matrixX = ", $matrixM->inv x $matrixB,"<br>\n";
exit(0);