my $file = '/Library/WebServer/Documents/log.txt';
open ( DEST, '>>', $file ) or die "Bleah!\n$!";
print DEST "$time, $StationId\n";
close DEST;