Yes, delete the line @ok = $t->getlines;