#!/usr/bin/perl

use Math::MatrixReal;  # http://www.perl.com/CPAN/modules/by-module/Math

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

$determinant = $matrix->decompose_LR->det_LR;

print $determinant;