open (MYFILE, "< $filename") or die "Failed to open $filename: $!";
while (<MYFILE>) {
    # do something with $_
}
close (MYFILE);