print " Enter your password:\n";
ReadMode 3;
while($key = ReadKey()){

    $val = ord $key;
    push @password, $key unless $val == 8 || $val == 13;
    last if $val == 13;
    print "*" unless $val == 8;
}