Select Code to Download

package Log::Log4perl::Appender::HJOfilnamed;
use parent qw[ Log::Log4perl::Appender::File ];
...
    $fname = $1 if $fname =~ /^(.*)$/
    return $class->new( @_, filename => $fname );
}