my $kt = q{BEGIN super foo};