Select Code to Download

#!/usr/bin/perl -w

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

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.