Help for this page
open(DAT,">>$sitedata") || die("Cannot Open File");
open(DAT,'>', $sitedata) || die("Cannot Open $sitedata: $!");