i maded this to add users to mysql

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();
[download]

if you see way to made it better please post reeply