Select Code to Download

my ($first,$last) = ("John", "Doe");

...
    # prints "John Doe \n", note the space at the end!
    print $first, $last, "\n";
}