Help for this page

Select Code to Download


  1. or download this
    BEGIN { package Foo; *main::readpipe = sub {"Foo"} }
print `xyz`;
__END__
Foo