#!/usr/local/bin/perl

$|++;
use Sys::Hostname;
use strict;

use vars qw( $HOSTNAME );
$HOSTNAME = hostname;

my $file = "";	# Fill this in

if (@ARGV) { printfile($file, join(' ', @ARGV)) } else {
  while (<STDIN>) { chomp; last if m/^\.$/; printfile($file, $_); }
}

exit(0);

sub printfile { 
  my $time = format_time(time);

  my $file = shift;  
  open(FILE, ">>$file") or die "Couldn't open $file: $!\n";
  print FILE "$time - @_\n";
  close(FILE);
}

sub format_time {
  my $time = shift || time;
  sprintf("%04d-%02d-%02d %02d:%02d", (localtime($time))[5] + 1900,
	(localtime($time))[4] + 1, (localtime($time))[3],
	(localtime($time))[2], (localtime($time))[1] );
}