Select Code to Download

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

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