# test code
my $a = 
'use filtertest;
BEGIN { print "eval test\n"; }
sub {
    print "Hello word\n";
}->();
END { print "eval over\n" }';
eval $a;