Select Code to Download

package FileReader;
use Moose;
use Moose::Util::TypeConstraints;
...
}

1

use Modern::Perl qw/2014/;
use lib 'C:/Data/strawberry/script-chrome';
use FileReader;
...
while ( my $line = $file->read_next_line ) {
    print $line;
}