Select Code to Download

$dbh->disconnect ||die " Failed to disconnect\n";
$dbh->do( $sql ) || die "Couldn't insert record. $!\n";