My $interpreter = Verify->new( );
$interpreter->pluggedFunctions( { "zero" => { $_[0] * 0 } } );
$interpreter->compile("/beer/something.vfy");

My %bind_variables = get_variables_from_tk_interface_put_into_hash( $tk1 );
if  $interpreter( \%bind_variables ) ne "YAY" die("EEK!");

My %bind_variables = get_variables_from_tk_interface_put_into_hash( $tk2 );
if  $interpreter( \%bind_variables ) ne "YAY" die("EEK MORE!!");