my $csv=Text::CSV->new( { eol => $/ } );