use Math::Matrix;
Math::Matrix->new(
  [1, 2, 1, -1], # ax+by+cz+n=0
  [2, 3, -2, 2]
)->solve->print;
# says
# -7.00000    7.00000 
#  4.00000   -4.00000