use strict;

# Set up main log
open  LOG, ">$logfile" || die "$0: Can't open log file!";
open ( STDERR, ">>$logfile" );
open ( STDOUT, ">>$logfile" );
select( LOG );
$| = 1; # Turn on buffer autoflush for log output
select( STDOUT );