Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "$_\n" for $dbh->tables;

$dbh->disconnect();

use mysql;
set password=password('rootpassword');
...
grant all privileges on testdatabase.* to kiat 
identified by 'yourpassword';
flush privileges;