Select Code to Download

#!/usr/local/bin/perl

...
   =
   gold CHAR(40))');
   $dbh->disconnect();

#!/usr/local/bin/perl

...
);
$table->execute();
$dbh->disconnect();