Ok I appreciate all of the help ,but these are things that i have all ready considered. First the you cant share process doesn't make a difference either way. The first time i did this was with out splitting into different process's and it didn't even work then. Secondly using @_ and @_[0] makes no difference either and is technical a syntax error according to scite editor if you run the syntax checker. I also use $_ and $_[0] through out the whole program in my sub routines and it works just fine those other times. Even if i take the one line of code to insert the text into the listbox and do this with it

while (defined ( my $line = <$sock> ) ){
        
        chomp($line);# = $_);
        $line =~ s/(\x0a|\x0d)//g;
        # Display response from server
                # RUN THAT LINE BELOW INSTEAD OF USING SUB
                $scrolledText -> insert('end',"<< $line");
        #&show($line);
        print "<< $line\n";
[download]

It makes no difference it still does not insert into the ListBox and is now defiantly in that process which proves thats not working. But the print "<< $line\n"; is printing the response from the server so i am capturing the response and able to print to screen just not to insert into the TK object. Any one have any other ideas i would greatly appreciate it. Thank you very much again.

UPDATE: I added this.

$scrolledText -> insert('end', "<< $line") or die "Can not insert: $!\
+n";
[download]

And It did insert the first response line from the server but then it shot out an error and ended. Heres that Error

Tk::Error: Can not insert: No such file or directory
 main::connection at irc.pl line 442
 main::getData at irc.pl line 248
 <Key-Return>
 (command bound to event)
perl: ../../src/xcb_io.c:242: process_responses: Assertion `(((long) (
+dpy->last_request_read) - (long) (dpy->request)) <= 0)' failed.
perl: ../../src/xcb_io.c:242: process_responses: Assertion `(((long) (
+dpy->last_request_read) - (long) (dpy->request)) <= 0)' failed.
Aborted
[download]