open PIPE, "|program >$file";
print PIPE "testing.  output will go to $file, since perl will pass the command line though the shell\n";