open IN, $filename or die "Couldn't open file '$filename' for reading: $!";