open FH, "|system_command";
my $stuff="some things to pass along to system command\n";
print FH $stuff;