my $pid = open F, "-|", "john" or die;