如何使用Perl输入密码并用'*'替换字符？

#!/usr/bin/perl

use strict;
use warnings;
use Term::ReadKey;

print "请输入密码：";
ReadMode 'noecho';
my $password = '';
while (my $key = ReadKey(-1)) {
    if ($key eq "\r" || $key eq "\n") {
        last;
    } elsif ($key eq "\b") {
        chop $password;
        print "\b \b";
    } else {
        $password .= $key;
        print '*';
    }
}
ReadMode 'normal';
print "\n";

print "您输入的密码是：$password\n";