sub set_up_logger {
    my ($interactive, $batch, $whatever) = @_;
    sub writeLog {
        my $msg = shift;
 
        if ($interactive) {
            print STDOUT $msg;
        }
        elsif ($batch) {
            print FILE $msg;
        }
        ## whatever whatever
    }
}