open(RPT, ">$rptname") or warn "Unable to open report file: $!\n";