#!perl -w
use Mac::Glue ':all';
$f = new Mac::Glue 'Finder';

my $dialog = {
    size => [260, 95],
    contents => [
        {
            class   => 'push button',
            bounds  => [190, 65, 250, 85],
            name    => 'OK',
            enabled => 3
        }, {
            class   => 'push button',
            bounds  => [110, 65, 170, 85],
            name    => 'Cancel'
        }, {
            class   => 'password field',
            bounds  => [10, 36, 250, 36 + 16],
            name_bounds => [10, 10, 250, 26],
            name    => 'Enter Password:',
            value   => ''
        }
    ],
    timeout_after => 60,
};

my @results = $f->dd_auto_dialog($dialog, grayscale => 1);
die $^E if $^E;  # check error

# password field is field 2, OK button is field 0
print $results[0] ? $results[2] : 'canceled';

__END__