use Math::Complex;
use strict;
my $x = 1+1*i;
print $x*undef;