open STDERR, "> $errlog" || die "Cant redirect error: $!\n";
print STDERR "Permission/Error Log\n", scalar(localtime), "\n\n";
open(FH, ">> $statspage") || die "Cant open file: $!\n";
select(FH);
#get data here etc...
close(FH);
close(STDERR);  #is this close needed here??