Reading a file
my
$product_file
=
'product-list.txt'
;
open
my
$fh
,
'<'
,
$product_file
;
while
( <
$fh
> ) {
print
; }