#!/usr/bin/perl 

use warnings; 
use strict; 
use Term::Getch; 

my ($in, $psw); 
print "Bitte das Passwort\n"; 

while(1) { 
   $in = getch(); 
   if (defined $in) { 
      last if $in =~ /\r/; 
      $psw .= $in; 
      print "*"; 
   }       
} 
print $psw;