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