Select Code to Download

use Data::Dumper;

print Dumper(\%data), "\n";

while ( my ($nbname, $ip) = $sth->fetchrow ) {
if ($ip) {
...
    }
  }
}