while(<>) {
        chomp;
        next if !length;
        @lines = $t->cmd("bin/dsjob -jobinfo $project $_\n");