# 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
		&show($line);
		print "<< $line\n";

##</code><code>##

sub show {
	my $line = $_;
	print "Testing if this is even working!!!\n\n";
        print "<< $line\n";
	$scrolledText -> insert('end',"<< $line");	# Insert the text into the Listbox $scrolledText
}