!c:\Perl64\bin\perl.exe -w

use strict;
use diagnostics;
use Text::CSV;

my $testfilelist="testfilelist.csv";
my %dimconvtables;
loadlevelconversion($testfilelist, \%dimconvtables);

exit 0;

sub loadlevelconversion	
{
	my $listfilename=shift;
	my $tableref=shift;
	my $locdata;
	local $/='\r';
	my $ncsv = Text::CSV->new ( {sep_char => ';', eol => $/} );
	$ncsv->SetDiag(0);
	open my ($ifl), "<", $listfilename or die "Could not open $listfilename! \n$!\n";
	if ($ncsv->eof()) {print "eof1"};
	$locdata=$ncsv->getline($ifl);
	print $locdata;
	close $ifl;
	return;
}