my $line;
while (defined ($line = <>)) {