perl -WTe "my $b=0;$b->d();" 2>&1