#!/usr/pkg/bin/perl -w
use IO::Handle;

print "cat.pl started\n";
STDOUT->flush;
open(F, ">freeciv.log") or die "open()";
while (<STDIN>) {
	chomp;
	print F "> $_\n";
	F->flush;
}