Select Code to Download

use Type::Params qw(compile);
use Types::XSD qw(String Decimal Date Integer);
...
__DATA__
12|11.00|BILL|20130131|asd123q|1234.45
14|12.0|MONKEY|20120228|gkhkg|1.2

$VAR1 = [
          '12',
...
          '1234.45'
        ];
Value "MONKEY" did not pass type constraint "String[maxLength=>"5"]" (
+in $_[2]) at validate-csv.pl line 21.