[log4perl-devel] appender initialisation issue

[Roger D. <rog...@gl...>]

  my $appender = Log::Log4perl::Appender->new(
                                              "Log::Dispatch::File",
                                              filename =>  $main_logpath,
                                              mode     => "append",
                                              name 
=>$current_appender_name,
                                              level=>$INFO
                                             );

I'm doing this, but it doesn't seem to change the level of initialisation. 
Am I doing something wrong?

Roger