Select Code to Download

perl -MIO::All -E 'sub bo {"blorf"} sub ba {"bar"} ba < bo'
Unterminated <> operator at -e line 1.

foo < bar

$ perl -E 'say < 2'
Unterminated <> operator at -e line 1.
...
1
$ perl -E 'sub foo(){1} say foo < 2'
1