my $line = ; # read the next line print $line;