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