perl -MO=Deparse,-p -e" my $self = bless {}, 1337; my $self->{poop} = 6;"
(my $self = bless({}, 1337));
($my $self{'poop'} = 6);
-e syntax OK