open(CHILD, "| $command") 
    or die "$command failed: $!\n";