$file = "/Library/WebServer/Documents/log.txt";
open (DEST, ">>$file") || die &damn();
print DEST $time;
print DEST ",";
print DEST $StationId;
print DEST "\n";
close DEST;