Select Code to Download

$type =~ s/\s+/ /g;  # Liberal for inputs, strict for outputs.
$type =~ s/^\s//;
...
   \z
/x
   or die;

if ($type eq 'VARCHAR') {
   if ($arg eq '')             { $sql = $type; }
...
else {
   die
}