use IO::Handle qw( );

my $LOGFH;

if ( $opt_s ) {
    $LOGFH = \*STDOUT;
} else {
    $opt_l = $DEFAULT_LOG_FILE if !defined($opt_l);
    open( $LOGFH, '>>', $opt_l )
        or die("Could not open logfile \" $opt_l\": $!\n");
}

$LOGFH->autoflush(1);    #autoflush on