#!/usr/bin/env perl


use Log::Log4perl qw(:easy);

Log::Log4perl->easy_init("log.conf");

logfile();
logfile("logfile");

sub logfile {
    my($what) =@_;

    my $logger = get_logger();
    if (defined $what) {

    $logger->info("This will get logged in");
    } else {
    $logger->debug("This will not");
    }

    }