# Fork it into two process's
	my $kidpid;
	die "Cant Fork: $!" unless defined($kidpid = fork());

	if ($kidpid) {
		
	while (defined ( my $line = <$sock> ) ){
		
		chomp($line);# = $_);
		$line =~ s/(\x0a|\x0d)//g;
		# Display response from server
		
		
		open $STDIN,'-';

		$mainWindow->fileevent($STDIN,readable => sub {
		my $line = <$STDIN>;
		$scrolledText->insert('end',$line);
                });

##</code><code>##

drew@Phantom:~$ perl irc.pl
>> NICK k0rn
>> USER k0rnh0le localhost localhost Andrew
Tk::Error: Can't locate object method "OPEN" via package "Tk::Event::IO" at irc.pl line 444, <GEN1> line 2.
 <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