open( READ, "<$filename" ) or die "Failed to open $filename - error $!";