306 {

   307     my @pw;

   308 

   309     sub _mkpw($) {

   310         my $in = $_[0];

   311 

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

   313 

   314         if ( !@pw ) {

   315             chomp( @pw = `pwgen 8 10 2>/dev/null|| mkpasswd` );

   316             die "pwgen/mkpasswd: $!" if $?;

   317         }

   318         return shift @pw;

   319 

   320     }

   321 }

   322