>perl -MO=Deparse -ce"sub foo {}   fob { abc => 1 }"
sub foo {

}
do {
    'abc', 1
}->fob;
-e syntax OK