use constant FOO => "BAR";

print << "BAZ"
@{[ FOO ]}
BAZ

##</code><code>##

print "Hello, @{[ $q->param('real_name') ]}\n";