...
use Data::Dumper;
...
#create remote blast factory object and initialize blast parameters
my $blast_factory = Bio::Tools::Run::RemoteBlast -> new (    
    '-prog' => 'blastn',
    '-data' => 'nr',
    '-expect' => '1e-10',
    '-readmethod' => 'SearchIO');

print Dumper( $blast_factory );
#loop over all sequences input and count how many sequences are found
my $count = 0;
while (my $seq = $seqio -> next_seq) {
$count++;

#loop to blast each sequence against the database
my $job = $blast_factory -> submit_blast ($seq);
print "Blasting sequence number $count\n";
print Dumper( $job );
#loop to load rids returned for the blast job submitted
while (my @rids = $blast_factory -> each_rid) {

#loop over rids to check server for a result
foreach my $rid (@rids) {
print Dumper( $rid );
my $blast_results = $blast_factory -> retrieve_blast($rid);
print Dumper( $blast_results );
...