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