use Modern::Perl qw/2014/;
use lib 'C:/Data/strawberry/script-chrome';
use FileReader;
use Data::Dump qw /dump/;

my $file =
  FileReader->new( file => 'C:/Data/strawberry/script-chrome/test.txt' );
while ( my $line = $file->read_next_line ) {
    print $line;
}