17:01 >perl -we "package Foo; sub readpipe { die }; package main; BEGIN { my $rp = qq[main::readpipe]; *{ $rp } = \&Foo::readpipe; } print &readpipe('ls')"
Died at -e line 1.

17:04 >