open FILE, '<', $filename;
while (<FILE>) {
    # ... do something here ...
}