if ( my $pid = open( $name, "-|" ) ) # fork a child
{...}