open (LOGFILE, ">tempLog.$time" ) || die "Cannot open tempLog for writing: $!\n";
autoflush LOGFILE 1;
print LOGFILE "Socket server started on port $port at ", localtime, "\n";