my @modules=qw/Text::CSV_XS Text::CSV/;
my $module;
foreach (@modules) {
    if ( eval "require $_" ){
	$module=$_;
	$module->import();
	last;
    }
}    


##</code><code>##

my $csv=$module->new(
    { binary => 1,
    });