Select Code to Download

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