$ perl -e'
   sub readpipe { die };
   readpipe("ls");
'

$ perl -e'
   use subs qw( readpipe );
   sub readpipe { die }
   readpipe("ls");
'
Died at -e line 3.