if (my $fh = new IO::File '-|') { ...