use Internet;
use Script;
use Net::Telnet;
+use QSL;
+use DB_File;
use strict;
use vars qw(%Cache %cmd_cache $errstr %aliases $scriptbase $maxerrors %nothereslug $maxbadcount);
my $self = shift;
my $line = shift;
my $isolate = shift;
- my $to = shift;
my $target = shift;
+ my $to = shift;
my $text = shift;
my ($filter, $hops);