use Net::AIMTOC;
use Term::ReadKey;

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