94 {

    95     my @pw;

    96 

    97     sub mkpw($) {

    98         my $in = $_[0];

    99 

   100         return $in unless $in and $in eq "{pwgen}";

   101 

   102         if ( !@pw ) {

   103             chomp( @pw = `pwgen -nc 12 1 2>/dev/null` );

   104             die "pwgen: $!" if $?;

   105         }

   106         return shift @pw;

   107 

   108     }

   109 }

   110