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