Select Code to Download

# Use auto_diag to see all parsing errors immediately
my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1, allow_whit
+espace => 1 });
...

    # THERE CANNOT BE AN ELSE AFTER AN EXIT !
    }