my $term = new Term::ReadLine;
  print $term->ReadLine;

##</code><code>##

  $attribs = $term->Attribs;
  $attribs->{redisplay_function} = $attribs->{shadow_redisplay};
  $password = $term->readline("Password: ");
  $term->remove_history($term->where_history);

##</code><code>##

  starky@freak bin $ ./readline-password-test.pl 
  Term::ReadLine uses [Term::ReadLine::Perl]
  Username:  uname
  Password:  passwd
  The username is [uname] and the password is [passwd]
  starky@freak bin $