#! /usr/bin/perl
use strict;
use warnings;

use lib qw(
  Z:/test
);
use test::log;

my $log = test::log->new(
  {
    write_logfile => 0, # 0 => nein, 1 => ja
    logfile_name  => 'logfile',
    logfile_path  => 'C:/WINNT/system32/config',
  }
);

printf "Name des Logfiles: %s\n", $log->logfilename;

__END__