Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
sub test {
    print 'Testing: ', retrieve_password(), "\n";
}

Select or download this

Enter password: 
Testing: some_password