BEGIN { package Foo; *main::readpipe = sub {"Foo"} }
print `xyz`;
__END__
Foo