17:01 >perl -we "package Foo; sub readpipe { die }; package main; BEGIN { my $rp = qq[main::readpipe]; *{ $rp } = \&Foo::readpipe; } print readpipe('ls')"
Ambiguous call resolved as CORE::readpipe(), qualify as such or use & at -e line 1.
1801_SoPW.pl
1802_SoPW.pl
1803_CUfP
...