Reading a file 

my $product_file = 'product-list.txt';

open my $fh, '<', $product_file;

while ( <$fh> ) {
    print;
}