if(!system("$program>$seq_file")) { 
      # not //;)   error
 }