sub MainCall
{
$ClientHandle = shift @_;

Messages::PrintToLog("Admin: MainCall");

print $ClientHandle "Testing";

my $Answer = <$ClientHandle>;

#some more function calls
}