open(DAT,'>', $sitedata) || die("Cannot Open $sitedata: $!");