#!/usr/bin/perl -w

#
# A really silly, simple script
#

my $port    = 10000;
my $logfile = "/tmp/simpledaemon.log";

open LOG, ">>$logfile" or die "Unable to open $logfile: $!";

select LOG;
$| = 1;

print LOG "Started at " . `date`;

$SIG{TERM} = $SIG{INT} = \&cleanup;

sleep(10000);

sub cleanup {
	print LOG "Terminated at " . `date`;
	close LOG;
	exit(0);
}