Select Code to Download

$\ = "\n";
for $a (1, "1") {
    print $a | " $a";
}

use DBI ':sql_types';

...

...
# Now go ahead, DBI will treat any data for the (first) field as a str
+ing...