#!/usr/bin/perl

use Term::ReadKey;

print "Jelszó: ";
ReadMode('noecho');
chomp(my $pass = <STDIN>);
ReadMode(0);