hello, here is some code i put together from some stuff i have been reading, and from some responses i got in another post. I just wanted to know how i could share a variable among threads, I thought that if i shared the $client variable, it would print the message on each of the clients, who are connected to the server. Can anybody explain how to do this to me? here is the code: 
#!/usr/bin/perl

use strict;
use threads;        
use threads::shared;
use IO::Socket::INET;

$| ++;

my $listener = IO::Socket::INET->new
(
    LocalPort => 1337,
    Listen    => 5,
    Reuse     => 1
) || die "Cannot create socket\n";

warn "server up and ready for connections...... \n";

my $client : shared;
my $client_num = 0;
my @grab;

while (1) 
{
    our $client = $listener->accept;
    threads->create(\&start_thread, $client, ++ $client_num);
    
}

sub start_thread 
{
    my ($client, $client_num) = @_;
    print "thread created for client $client_num\n";
    push @grab, $client;
    print @grab;
    print $client "Welcome to the Test server!\n";
    &begin;    
}



sub begin
{
    while(our $line = <$client>)
    {
        print $client $line;
        print $line;

    }
}

[download]

In reply to sharing variables with threads by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.