use Math::Matrix;

my $m = 'Math::Matrix'->new([0, 1, 2],
                            [3, 4, 5],
                            [6, 7, 8]);
print $m x 2;

__END__
Output:
   0.00000    2.00000    4.00000
   6.00000    8.00000   10.00000
  12.00000   14.00000   16.00000