In the spirit of "print seldom and print late", here's a little cleaner and maybe more efficient method:

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