#!/usr/bin/perl -w
use strict;
use threads;
use IO::String;

my $var; # This variable is later connected to IO-stream.
my $io = IO::String->new($var); # connect $var to IO-stream.
my $th=threads->new(\&Update); # start thread
$th->join(); # collect thread
sub Update{}; #Updating screen with $var.

# $io: Used as a filehandle for logging in Net::Telnet module. 
# $var stores all that prints to $io.