1 #!/usr/bin/perl -w
 2 # getpass.pl
 3 
 4 use strict;
 5 use Term::ReadKey;
 6 use Tie::IxHash;
 7 
 8 # Hash of on-screen prompts for old/new passwords
 9 my %prompts = (
10     'Enter old password:'          => 'oldpass',
11     'Enter old enable password:'   => 'oldenable',
12     'Enter new password:'          => 'newpass',
13     'Confirm new password:'        => 'newpassconf',
14     'Enter new enable password:'   => 'newenable',
15     'Confirm new enable password:' => 'newenableconf',
16 );
17 
18 # Walk through each on-screen prompt to populate new Hash of passwords
19 print "Prompting for passwords (*won't* appear on-screen)\n\n"
20 my %passwds;
21 for my $prompt (keys %prompts) {
22     print "  $prompt "
23     ReadMode('noecho');
24     chomp(my $input = <STDIN>);
25     $passwds{$prompts{$prompt}} = $input;
26     ReadMode(0);
27     print "\n"
28 }