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

##</code><code>##

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

##</code><code>##

sub process_args($) {
    my $iterate = 0;     #Local variable for adding to @targets
    if ($_[0] eq "-v" || $_[0] eq "--version") {
        print "Thanks for supporting AimSpy.  You are currently using version $v
+ersion of AimSpy.\n";
    }

##</code><code>##

        open($out = SAVE, ">>$save") or open($out = SAVE, ">$save") or
                  die "Can't save to file $save: $!\n";

##</code><code>##

  open my $out,">>$save" or die "Can't append to '$save': $!\n";

##</code><code>##

        $targets[$iterate] = $_[0];
        $iterate++;

##</code><code>##

push @targets,$item;

##</code><code>##

    try {
        $aim = Net::AIMTOC->new;
        $aim->connect;
        $aim->sign_on($screenname, $password);
    }
    catch Net::AIMTOC::Error with {
        my $err = shift;
        print $err->stringify, "\n";
    };