use Win32::GUI;  
use IO::Socket; my $PORT = 2000; print "HOST: ";  
chomp(my $host = <STDIN>);  
print "\n";   
  
  
  
my $window = Win32::GUI::Window -> new (-name => "Chat_Box", -text => "Chat Box", -width => 550, -height => 700, -left =>    
  
400, -top => 200);  
$window->AddTextfield(  
    -name    => "Message",  
     -left    => 85,  
      -top     => 69,  
        -width   => 300,  
                   -height  => 140,  
            -multiline=> 1);   
  
  
  
$window->AddButton(  
 -name => "SendText",  
 -text => "<<SEND>>",  
 -left    => 150,  
     -top     => 250,  
 -width => 100,  
 -height => 50);   
  
  
  
$window->AddTextfield(  
    -name    => "ViewChat",  
     -left    => 20,  
      -top     => 400,  
        -width   => 500,  
                   -height  => 240,  
            -multiline=> 1,  
  -readonly => 1);   
  
  
  
my $client_socket = IO::Socket::INET -> new("$host:$PORT") or die "ERROR WITH CONNECTION\n";  
system("CLS");  
$window->ViewChat->Append("CONNECTED TO $host");  
$window->Message->Append("Your Message Goes Here.....");  
start_chat();   
  
  
  
sub start_chat  
{  
 $pid = fork();  
 if($pid)  
 {  
  send_chat();  
 }  
  
 else  
 {  
  recv_chat($client_socket);  
 }  
}  
sub SendText_Click  
{  
 my $some_text = $window->Message->Text();  
 print $client_socket "$some_text\n";  
}  
sub send_chat  
{  
 $window->Show();  
 Win32::GUI::Dialog();  
}  
sub recv_chat  
{  
 $socket = shift;  
 while(1)  
 {  
  $data = <$socket>;  
  if(defined($data))  
  {  
   $window->ViewChat->Append("$data");  
  }  
 }  
}