#!/usr/bin/perl
#
# eg3: read every line of fred
#

open( my $in, '<', "fred" ) || die "can't open fred\n";
while( my $line = <$in> )
{
        chomp $line;
        print "read '$line'\n";
}
close( $in );
