sub fullname {
  my (@parts) = @_;
  my $name = join(" ", @parts);
  $name =~ s/^(.) /$1\. /g;
  $name =~ s/ (.) / $1\. /g;
  $name =~ s/ (.)$/ $1\./g;
  return($name);
} # end-sub