my $generated_password = &GeneratePassword;

##</code><code>##

sub GeneratePassword {
  my $password = `passwdgen -pa --length=6`;
  $password =~ s/Your password is: (.*)/$1/;
  chomp($password);
  return($password);
}