Select Code to Download

if(length $string>256){
   # remove trailing spaces
...
      $string = substr($string,0,256);
   }
}

   $dbh->do(
         "CREATE TABLE $table ("
...
      #$sth->bind_param(2,"$fld2",DBI::SQL_VARCHAR);
      print $fld2; #prints 0002
      $sth->execute($fld1,$fld2,$fld3);

      $sql = "INSERT INTO $table VALUES('$fld1','$fld2','$fld3')";
      #print $sql . "\n";
      $dbh->do($sql);

#! /usr/lcl/bin/perl

use DBI;
...
sub _forminfo {
   ...
}