#write data to file
	$logfile = $path.$pg;
	open (LOG1, ">>, $logfile") or die "Can't open logfile: $!";
		print LOG1 "$when\n";	
	close (LOG1) or die "Can't close logfile: $!";