Help for this page
$ perl -wMstrict -le 'use subs "readpipe"; print `Bar`; sub readpipe { +"Foo"}' Foo