#!perl 

use Mac::Password;

$pwd = PWD();
print "$pwd\n" if defined $pwd;

$pwd = PWD({
    title => 'Ha! Secret!',
    x_pos => 10,
    y_pos => 32,
    width => 300
});
print "$pwd\n" if defined $pwd;

END { QUIT_PWD() }