$ perl -MO=Deparse -e 'sub new { my $class = shift; bless { @_ } => $class; }'
sub new {
    my $class = shift @_;
    bless {@_}, $class;
}
-e syntax OK