minimalist doh/tor query client

tor_doh.pl

#!/usr/bin/env perl
use strict;
use warnings;

use IO::Socket;
use IO::Socket::Socks;
use IO::Socket::SSL;
use Net::DNS::Packet;
use MIME::Base64 qw(encode_base64url);

sub doh_query {
my ($l,$r,$d) = @_;
$r ||= 'A'; $d ||= 'IN';
my $s = IO::Socket::INET ->new         ('127.1:9050');
   $s = IO::Socket::Socks->start_SOCKS ($s, ConnectAddr => 'dns.google', ConnectPort => 443);
   $s = IO::Socket::SSL  ->start_SSL   ($s, SSL_hostname=> 'dns.google');
my $q = encode_base64url(Net::DNS::Packet->new($l,$r,$d)->data);
print $s "GET /dns-query?dns=$q HTTP/1.0\r\n\r\n";
while (<$s>) {unless ($_ =~ /(:|\<|\n)/ ) {Net::DNS::Packet->new(\$_)->print;}}
}

doh_query(@ARGV);