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

##</code><code>##

Use of uninitialized value $z2 in multiplication (*) at /usr/share/perl/5.14/Math/Complex.pm line 471.
Use of uninitialized value $z2 in multiplication (*) at /usr/share/perl/5.14/Math/Complex.pm line 471.
0