...
if(!system("$program>$seq_file")) { 
      //error
 }
...


##</code><code>##

select((select(STDIN), $| = 1) [ 0 ]);