perl -wle'BEGIN { require "browserUk.pl" }'

##</code><code>##

use strict;

while(<DATA>) {
    chomp;
    my $code = $_;
    tr/\n//d;
    s[((?:BEGIN|END)\s*{)][sub syntax_check_$1]g;
    eval 'return;' . $_;
    print "'$code' \n\t: ", $@ ? "Fails with\n$@" : 'Passes syntax check';
}

1;

__DATA__
INIT      { print '*** GOTCHA!!! ***'; } # Executes.
CHECK     { print '*** GOTCHA!!! ***'; } # Executes.
sub BEGIN { print '*** GOTCHA!!! ***'; } # Fails to compile.
END ()    { print '*** GOTCHA!!! ***'; } # Executes.
my $a = 1;
my $a = cool;
my $