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";

##</code><code>##

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

##</code><code>##

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