use warnings;
my $foo = undef;
print "\$foo = " . (++$foo-1);