for my $key (keys %logins) {
        my $response = get("http://www.dtdns.net/autodns.cfm?id=$key&pw=$logins{$key}&ip=$ip");
        $response =~ s/\n//g;
        print "$key: [$response]\n";
}