#!/usr/bin/env perl 
use strict;
use warnings;
use Math::MatrixReal;
use CGI; # For example

my $cgi = CGI->new;

my $whassat = 'CGI';
print "\$cgi is an object of class $whassat\n" if $cgi->isa ($whassat);

eval { my @res = $cgi->sym_diagonalize; }; # This will fail
print $@ if $@;

my $mmr = Math::MatrixReal->new_from_rows ( [[ 1 .. 3 ], [ 2, -99, 2 ], [ 3, 2, -7]] );
$whassat = 'Math::MatrixReal';
print "\$mmr is an object of class $whassat\n" if $mmr->isa ($whassat);

my @res = $mmr->sym_diagonalize; # This will succeed

print "First Eigenvalue: @{$res[0]->[0][0]}\n";