#!/usr/bin/perl

my $forename = "John";
my $message = "Hello ";

print $message;
print $forename;
print "\n";