--- sysplogd	2009/04/11 09:29:22	6
+++ sysplogd	2009/04/11 11:42:04	11
@@ -22,10 +22,10 @@
 	'debug+'  => \$debug,
 	'schema!' => \$schema,
 	'log=s'   => \$log,
+	'port=i'  => \$port,
 ) || die "usage: $0 --debug --schema\n";
 
-my @facilities = ( qw/
-/ );
+our $VERSION = '0.00';
 
 my $sql_schema = q{
 
@@ -96,8 +96,6 @@
 #	ReuseAddr => 1,
 ) || die "can't listen to $port: $!";
 
-print "INFO: listen on $port",$/;
-
 open(my $log_fh, '>>', $log) || die "can't open log $log: $!";
 $log_fh->autoflush(1);
 sub _log {
@@ -105,6 +103,8 @@
 	print $log_fh time() . '|' . join('|', @_), $/;
 }
 
+_log "INFO: listen on $port";
+
 my $rin = '';
 my $buf;
 while(1) {