open(my $in, "<", FILE) || die;