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