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