Select Code to Download

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

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

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