my $Hack = 'sub {' . $Subroutine->[2] . '}';
my $sub = eval "$Hack";
undef &{ *VWP_GenQueryHTML{CODE} };
*VWP_GenQueryHTML = $SubRef;