my @lines;
while(my $line = $t->getline){
  push(@lines,$line);
}
print $_ for(@lines);