perl -MPDL -MPDL::Matrix -e '$m = mpdl [[2,0],[0,2]]; $v = vpdl [1,2]; print $m x $v'

[
 [2]
 [4]
]

##</code><code>##

perl -MPDL -MPDL::Matrix -e '$m = mpdl [[2,0],[0,2]]; $v = vpdl [1,2]; print inv($m) x $v'
Dim mismatch in matmult of [2x2] x [2x1]: 2 != 1 at /usr/lib64/perl5/vendor_perl/PDL/Primitive.pm line 274.
	PDL::matmult(PDL=SCALAR(0x5600a82130e0), PDL::Matrix=SCALAR(0x5600a8202ba0), PDL=SCALAR(0x5600a8d718c8)) called at /usr/lib64/perl5/vendor_perl/PDL/Primitive.pm line 31
	PDL::__ANON__(PDL=SCALAR(0x5600a82130e0), PDL::Matrix=SCALAR(0x5600a8202ba0), "") called at -e line 1