new

$pipe = new IO::Pipe([readfh, writefh])