$nameEntry->bind('<Return>', sub { printx($sock,"PRIVMSG #testsen :$sndtxt");  });

##</code><code>##

310     sub printx {
311	my $sock = shift;
312	print $sock "@_\n";
313     }