Select Code to Download

#!/usr/bin/perl
use strict;
...
    out => $outfile
) ){ print STDERR "$0 : call to Text::CSV_XS::csv() has failed.\n"; ex
+it(1) }
print "$0 : success, output in '$outfile'.\n";