use strict;
use warnings;
use diagnostics;
use Net::AIMTOC;
use Term::ReadKey;

my $version = 0.01;       #The version number
my $screenname = "";      #Contains the screenname for logging in
my $password = "";        #Password for logging in
my $out = "STDOUT";       #Set default output to the screen
my @targets;              #Array containing screennames to watch