Probably the easiest thing to do would be to open the shadow file, find the user and read the encrypted password.

open(SHADOW, "< /etc/shadow") || die "Can't open for read: $!";
while(<SHADOW>) {
    if($_ =~ /^$user:(\w+):.*/) {
            print "$user's encrypted password is $1\n";
    }
}