System, as you said, returns 0 when execution is successful. Therefore the lines:

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

Aren't correct. Because When the return of system is false, as you check in the condition, there's no error. I think you should drop the !..