my $user = 'somename'; 	
my $db ="test";
my $host="localhost";
$dbh->do(q{GRANT ALL ON ?.* TO ?@?}, {}, $db, $user, $host);