#!/usr/bin/perl -w

use strict;

my $x = 'Dwayne Johnson';

print <<XXX;
$x's the Rock.
XXX