while (my $line = readline IO::File->new('/some/stuff', 'r')) {
  [...]
}