Select Code to Download

#!/usr/bin/perl
use strict;
...
}

print $sth->errstr();

~Style ID~,~Hist Style ID~,~Model ID~,~Model Year~,~Sequence~,~Style C
+ode~,~Full Style Code~,~Style Name~,~True Base Price~,~Invoice~
282198,     2007700803    ,16139     ,2007        ,1         ,~ZMB67~ 
+    ,~ZMB67~          ,~2dr Conv~  ,~Y~              ,21319.80

DBD::CSV::st fetchrow_array failed: Attempt to fetch row from a Non-SE
+LECT statement [for Statement "SELEC                                 
+                T * FROM current_table"] at ./col_proc.pl line 12.
Died at ./col_proc.pl line 12.
evan@dealermade:/var/chrome/NVDv2_US_EN$ ./col_proc.pl ./problem.txt
DBD::CSV::st fetchrow_array failed: Attempt to fetch row from a Non-SE
+LECT statement [for Statement "SELECT * FROM current_table"] at ./col
+_proc.pl line 12.
Died at ./col_proc.pl line 12.

~Style Name~
~5dr Crew Cab 130~