#!/usr/bin/perl -w

use strict;

my $x = 'Dwayne Johnson';

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

##</code><code>##

Name "x::s" used only once: possible typo at ./test.pl line 7.
Use of uninitialized value in concatenation (.) or string at ./test.pl line 7.
 the Rock.