$ perl -MO=Deparse,-x7 -e'Foo::Bar->new()'
'Foo::Bar'->new;
-e syntax OK