suppress STDIN from user

[Jose Malacara]

Is there a way for perl to suppress or mask user input at the STDIN? For example, a 
password or login prompt.... Not really trying to implement any real security here, 
just curious.

This is what I I would like:

Enter your login:            # suppressed from output
Welcome, admin.

or

Enter your login: *****    # masked by asterisks
Welcome, admin.



#!/usr/bin/perl

&prompt;

sub prompt {
  print "Enter your login: ";
  $login = <STDIN>;
  chomp ($login);
  &check($login);
}

sub check {
  if ($login ne "admin") {
        &prompt;
    }else{
        print "Welcome, $login\n";
    }
}


Thanks!