Select Code to Download

#!/usr/bin/perl
use warnings;
use math_module;
...
  print "\n\n";
}  
exit;

package math_module;
sub get_det($\@)
{
...
  return @new_matrix;  
}
return 1;

C:\Users\x>cd desktop

C:\Users\x\Desktop>inv1.pl
...
2.4  5  -2.8  -1

-2.2  -4  2.4  1

#!/usr/bin/perl
### TO PRODUCE THE INVERSE OF A SQUARE MATRIX (ANY SIZE) in PERL:
use warnings;
...
  print "\n\n";
}
exit;

$m2[0]=[3,2,1,1]; 
$m2[1]=[1,0,2,2];
$m2[2]=[4,1,3,3];
$m2[3]=[1,2,3,4];

C:\Users\x>cd desktop

C:\Users\x\Desktop>inv2.pl
...
 $m2[2]=[4,1,3,3];
 $m2[3]=[1,2,3,4];
Illegal division by zero at C:/Perl/lib/math_module.pm line 60, <DNAFI
+LE>line 4.

3,2,1,1
1,0,2,2
4,1,3,3
1,2,3,4