#! /usr/local/bin/perl -w

use strict;
use Math::MatrixReal;

sub INVERT_MATRIX
{
my $matrix =Math::MatrixReal->new_from_string(<<'MATRIX');
[ 0 1 2 ]
[ 3 4 5 ]
[ 6 7 8 ]
MATRIX
print $matrix;
my $inverse = $matrix->decompose_LR->invert_LR ;
print $inverse;