use Math::Complex;

$c1 = Math::Complex->new(-2,3);

$c2 = Math::Complex->new(4,5);

$c3 = $c1 * $c2;

print "$c1 x $c2 = $c3\n";