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!!");

##</code><code>##

If( :company == "" or :stock == "" or :sku == 0 )
	Return "E_ROW_INVALID";
if( checkSalesPerson( :salesperson )  == false )
	return "E_INVALID_SALESPERSON";

##</code><code>##

if( :salesperson != "gsmith" and :salesperson != "rjohnson" )
	Return "E_INVALID_SALESPERSON".

##</code><code>##

Sp[0] = "gsmith";
Sp[1] = "rsmith";

if( inArray( :salesperson, sp ) == false )
	Return "E_INVALID_SALESPERSON".