$pid = open(WRITEME, "| program arguments") or die "Couldn't fork: $!\n";
   print WRITEME "data\n";
   close(WRITEME) or die "Couldn't close: $!\n";