while(defined(my $line = <>)){
    # ...
}