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