my $duskyip = $controls{"$stb"}{'DuskyMoxaIP'};
my $duskymoxaport = $controls{"$stb"}{'DuskyMoxaPort'};
my $dusky = new IO::Socket::INET(PeerAddr => $duskyip, PeerPort =>$duskymoxaport, Proto => 'tcp', Timeout => 1);
my $duskyport = $controls{"$stb"}{'DuskyPort'};
my $fullcom = "A+$duskyport$rawcmd$closebit";
print $dusky $fullcom; #### LINE THAT ERROR REFERS TO ####