Select Code to Download

#!/usr/bin/perl 

...

my $data = Text::CSV::Slurp->load( file => $file, binary => 1 );
print Dumper($data);