open my $IFILE, '<', $IDFILE || die "Could not open $IDFILE: $!";