use strict;
use diagnostics;
my $foo=PerlBeginner;
print $foo;

##</code><code>##

use strict;
use diagnostics;
my $foo="PerlBeginner";
print $foo;