Select Code to Download

# Fork it into two process's
    my $kidpid;
...
        # Display response from server
        &show($line);
        print "<< $line\n";

sub show {
    my $line = $_;
...
        print "<< $line\n";
    $scrolledText -> insert('end',"<< $line");    # Insert the text in
+to the Listbox $scrolledText
}