open(my $in, '<', $fn) or die "Died opening file: $fn error: $!";