Select Code to Download

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

tied(
  {
    sub {}
  }->()
);

<c>
tied(
...
    sub {}
  )->()
);