open LOGFILE, '>>', $log_file;

sub logger {
    print LOGFILE @_ if defined $log_file;
    print @_
}