my $goodcode = <<'CODE';
print "Hello, how are you?\n"
CODE

my $badcode = <<'CODE';
pront "Hello, how are you\n?'
CODE

{
	no strict;
	local $^W = 0;
	eval "sub {\n$goodcode\n}";
}
print "Goodcode error: $@\n" if $@;

{
    no strict;
    local $^W = 0;
    eval "sub {\n$badcode\n}";
}
print "Badcode error: $@\n" if $@;