Nice program, but it echoes the password in clear-text when you type it on the term console ... i suggest to add 'ReadMode' func:

use Term::ReadKey qw(GetTerminalSize ReadMode);
[download]

and change the line 191 for this one:

print "Enter your password: "; ReadMode 2; chomp($pass=<STDIN>); ReadM
+ode 0;
[download]

happy chatterboxing! ^_^