use warnings; 
use strict; 
use DBI; 

my $dbh = DBI->connect('dbi:ODBC:target', 'sa', 'password');

$dbh->do("exec sp_password password, newpassword");