use DBI;

my $server = 'localhost';
my $db     = 'mysql';
my $user   = 'root';
my $passwd = shift;
my $new_user_db = shift;
my $new_user    = shift;
my $new_user_pw = shift;

my $dbh = DBI->connect( "dbi:mysql:$db:$server", $user, $passwd );

my $grant_local = <<SQL;
grant 
	  select
	, insert
	, update
	, delete
	, create
	, drop 
on ${new_user_db}.*
to '$new_user'\@'localhost'
identified by '$new_user_pw'
SQL

my $grant_anyhost = <<SQL;
grant 
	  select
	, insert
	, update
	, delete
	, create
	, drop 
on ${new_user_db}.*
to '$new_user'\@'%'
identified by '$new_user_pw'
SQL

for my $cmd ( ($grant_local, $grant_anyhost) ) {
	my $sth   = $dbh->prepare( $cmd );
	$sth->execute();
	$sth->finish();
}

$dbh->disconnect();