#!perl

use strict;

sub OnUpdate
{
	########################################
	# get data
	########################################
	my ($a, $b) = @_;

	########################################
	# code using the names
	########################################
	$a = 5;
	$b = 3;

	########################################
	# send data
	########################################
	$_[0] = $a;
	$_[1] = $b;
}