$ perl -MO=Deparse,-p -e 'tied sub {}->()'
tied({sub {
    
}
}->());
-e syntax OK