RT4 password change script

rt4_passwd.sh

#!/bin/bash
echo "=========================="
echo "RT4 password change script"
echo "=========================="
read -p "Username: " username
if [ ${#username} -lt 2 ]; then
    echo "No valid username entered."
    exit
fi
read -p "New password for $username: " -s password
if [ ${#password} -lt 3 ]; then
    echo "Password should be at least 3 chars"
    exit
fi
echo "";
read -p "Type it again: " -s password2

if [ "$password" = "$password2" ]; then
    perl -I/opt/rt4/local/lib -I/opt/rt4/lib -MRT -MRT::User -e 'RT::LoadConfig(); RT::Init(); my $u = RT::User->new($RT::SystemUser); $u->Load("$username"); $u->SetPassword("$password")'
    echo "New password set for user $username"
else
    echo "Password mismatch. Try again!"
fi