use DBI;

$uid = getlogin();

my $dbh = DBI->connect('DBI:ODBC:test',$uid,'',{ RaiseError => 1, AutoCommit => 0}) or die "Couldn't connect to database: " . DBI->errstr;

print "Enter new phone number: ";
$phone = <STDIN>;
chop($phone);

$sth = $dbh->prepare("update UINFO.USER_INFO_MODIFY set PHONE=?");
$sth->execute($phone);

$dbh->commit() or die "Could not commit: " . DBI->errstr;

$dbh->disconnect();
exit;