unless (open (IN, $ifn)) {
$ifn = "$main::data/wpxloc.raw";
open(IN, $ifn) or die "can't open $ifn ($!)";
unless (open (IN, $ifn)) {
$ifn = "$main::data/wpxloc.raw";
open(IN, $ifn) or die "can't open $ifn ($!)";
unless ($r = open (IN, $ifn)) {
$ifn = "$main::data/cty.dat";
$r = open(IN, $ifn);
unless ($r = open (IN, $ifn)) {
$ifn = "$main::data/cty.dat";
$r = open(IN, $ifn);
print OUT " name => '$name',";
print OUT " dxcc => $dxcc,";
print OUT " itu => $itu,";
print OUT " cq => $cq,";
print OUT " utcoff => $utcoff,";
print OUT " lat => $latd,";
print OUT " name => '$name',";
print OUT " dxcc => $dxcc,";
print OUT " itu => $itu,";
print OUT " cq => $cq,";
print OUT " utcoff => $utcoff,";
print OUT " lat => $latd,";