sub get_name
 {
   # ...
   return wantarray ?
          ($firstname, $middlename, $lastname) :
          "$firstname $lastname";
 }