Hi jrw,

maybe you are interested in something like this piece of code I found and adapted from the perldoc for readline

for (;;) {
        undef $!;
        unless (defined( $data = <$fh> )) {
            die $! if $!;
            last; # reached EOF
        }
        # do what you need to do with your data
        # like:
        # chomp($data);
        # ...       
}
[download]

I hope this helps