Select Code to Download

use Net::AIMTOC;
use Term::ReadKey;
...
$password = "";        #Password for logging in
$out = "STDOUT";       #Set default output to the screen
@targets;              #Array containing screennames to watch

use strict;
use warnings;
...
my $password = "";        #Password for logging in
my $out = "STDOUT";       #Set default output to the screen
my @targets;              #Array containing screennames to watch

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

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

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

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

push @targets,$item;

    try {
        $aim = Net::AIMTOC->new;
...
        my $err = shift;
        print $err->stringify, "\n";
    };