Select Code to Download

  printf("X is %s\n", defined $X ? $X : 'undefined');

 sub get_name
 {
...
          ($firstname, $middlename, $lastname) :
          "$firstname $lastname";
 }