The Above Send Function is defined as

sub Send {
   my($client,$message) = @_;
   print $client "$message";
}
[download]

nothing big, just forgot to include this sub-procedure in the above code. thnx again guys.