view release on metacpan or  search on metacpan

examples/v2/ktck/UserReadPassword  view on Meta::CPAN

#!/usr/local/bin/perl

use blib;
use strict;
use warnings;

use AFS::KTC_EKEY;

die "Usage: $0 prompt\n" if ($#ARGV != 0);

my $prompt = shift;

my $reason = '';
my $string = AFS::KTC_EKEY->UserReadPassword($prompt, $reason);
if ($reason) { print "reason = $reason\n"; }
if ($string) { print "password = ($string)\n"; }