Here's how to use Comm.pl,

require "Comm.pl"
&Comm'init(1.8);
&set_traps;
$program=&open_proc("some program");
($success, $matched, $before_match, $after_match ) = &expect ( $progra
+m, 10(time out in sec), 'what you are expecting');
die "Time out\n" unless ($success);
print $program "What you want to send to the program\n";
[download]

I don't have time to test it, but if it doesn't work let me know and I will fix it.