open my $IN, '<', $filename or die "Cannot open $filename: $!\n";