$ perl -wMstrict -le 'use subs "readpipe"; print `Bar`; sub readpipe {"Foo"}'
Foo