#! /usr/bin/perl

use strict;
use warnings;
use vars qw(@ISA @EXPORT $VERSION);

# include MODUL in module search path
BEGIN { push(@INC,"Z:/test"); }

use test::log;



my @XLOGVALUES001;
my $XLOGVALUES001;

while(@XLOGVALUES001)
{
shift(@XLOGVALUES001);
}

$XLOGVALUES001[0] = "1";	#logfile schreiben: ja = 1     nein = 2
$XLOGVALUES001[1] = "logfile"; 	#name des logfiles:  "logfile.txt"
$XLOGVALUES001[2] = 'C:\WINNT\system32\config';	#pfad des logfiles:   


&test::log::logfilename(\@XLOGVALUES001);


$log2 = test::log->logfilename();
print "Zurueckgegebener Wert von der subroutine: ".$log2;