# perl -MO=Deparse,-p -e 'tied( sub {}->() )'
tied({sub {

}
}->());
-e syntax OK