diff -ur mirmon-2.11/countries.list mirmon-2.11-tor2/countries.list
--- mirmon-2.11/countries.list	2016-07-23 12:45:38.000000000 +0200
+++ mirmon-2.11-tor2/countries.list	2022-07-06 00:46:53.326415415 +0200
@@ -1,3 +1,4 @@
+un - Unknown
 ad - Andorra
 ae - United Arab Emirates
 af - Afghanistan
diff -ur mirmon-2.11/LICENSE mirmon-2.11-tor2/LICENSE
--- mirmon-2.11/LICENSE	2016-07-23 12:45:38.000000000 +0200
+++ mirmon-2.11-tor2/LICENSE	2022-07-08 23:28:47.643700760 +0200
@@ -1,3 +1,4 @@
+# Copyright (C) 2022 Free Software Foundation, Inc.
 # Copyright (c) 2003-2016 Henk Penning, all rights reserved.
 # penning@uu.nl, http://www.staff.science.uu.nl/~penni101/
 # Version 1.1 was donated to the Apache Software Foundation 2003 Jan 28.
diff -ur mirmon-2.11/mirmon mirmon-2.11-tor2/mirmon
--- mirmon-2.11/mirmon	2016-07-23 12:45:38.000000000 +0200
+++ mirmon-2.11-tor2/mirmon	2022-07-08 23:28:44.043712513 +0200
@@ -1,5 +1,6 @@
 #! /usr/bin/perl -w
 
+# Copyright (C) 2022 Free Software Foundation, Inc.
 # Copyright (c) 2003-2016 Henk Penning, all rights reserved.
 # penning@uu.nl, http://www.staff.science.uu.nl/~penni101/
 # Version 1.1 was donated to the Apache Software Foundation 2003 Jan 28.
@@ -488,7 +489,7 @@
       { my $started = 0 ;
         while ( $GET -> count () < $PAR and @QUE )
           { my $mirror = shift @QUE ;
-            if ( gethost $mirror -> site )
+            if ( gethost $mirror -> site || $mirror -> url =~ m!^https?://\w+.onion(.*)! )
               { my $handle = $mirror -> start_probe ;
                 $m4h { $handle } = $mirror ;
                 $GET -> add ( $handle ) ;
diff -ur mirmon-2.11/Mirmon.pm mirmon-2.11-tor2/Mirmon.pm
--- mirmon-2.11/Mirmon.pm	2016-07-23 12:45:38.000000000 +0200
+++ mirmon-2.11-tor2/Mirmon.pm	2022-07-08 23:25:40.824189821 +0200
@@ -1,5 +1,6 @@
 #! /usr/bin/perl -w
 
+# Copyright (C) 2022 Free Software Foundation, Inc.
 # Copyright (c) 2003-2016 Henk Penning, all rights reserved.
 # penning@uu.nl, http://www.staff.science.uu.nl/~penni101/
 # Version 1.1 was donated to the Apache Software Foundation 2003 Jan 28.
@@ -488,7 +489,7 @@
       { my $started = 0 ;
         while ( $GET -> count () < $PAR and @QUE )
           { my $mirror = shift @QUE ;
-            if ( gethost $mirror -> site )
+            if ( gethost $mirror -> site || $mirror -> url =~ m!^https?://\w+.onion(.*)! )
               { my $handle = $mirror -> start_probe ;
                 $m4h { $handle } = $mirror ;
                 $GET -> add ( $handle ) ;
diff -ur mirmon-2.11/probe mirmon-2.11-tor2/probe
--- mirmon-2.11/probe	2016-07-23 12:45:38.000000000 +0200
+++ mirmon-2.11-tor2/probe	2022-07-08 23:34:16.598348804 +0200
@@ -1,9 +1,12 @@
 #! /usr/bin/perl -w
 
+# Copyright (C) 2022 Free Software Foundation, Inc.
+
 use strict ;
 
 my $WGET  = '/usr/bin/wget' ;
 my $RSYNC = '/usr/bin/rsync' ;
+my $TOR   = '/usr/bin/torsocks' ;
 
 my $timeout = 300 ;
 my $tmp_dir = '/tmp/mirmon' ;
@@ -67,7 +70,8 @@
       { Warn "can't open $TMP" ; }
   }
 else
-  { my $cmd = "$WGET -O - $opt_v $opt_q -t 1 -T $timeout $url |" ;
+  { my $tor = ($url =~ m!^https?://\w+.onion(.*)!) ? $TOR : "" ;
+    my $cmd = "$tor $WGET -q -O - $opt_v $opt_q -t 1 -T $timeout $url |" ;
     Warn sprintf "'%s'\n", $cmd if $opt{d} ;
     if ( open CMD, $cmd )
       { print <CMD> ; close CMD ; }
diff -ur mirmon-2.11/RELEASE-NOTES mirmon-2.11-tor2/RELEASE-NOTES
--- mirmon-2.11/RELEASE-NOTES	2016-07-23 12:45:38.000000000 +0200
+++ mirmon-2.11-tor2/RELEASE-NOTES	2022-07-08 23:36:01.297831249 +0200
@@ -7,6 +7,11 @@
    http://www.staff.science.uu.nl/~penni101/mirmon/svn/trunk/countries.list
 
 ----------------------------------------------------------------------
+mirmon 2.11-tor2 -- Fri 08 Jul 2022 11:35:32 PM CEST
+
+o Add probe tor support with torsocks.
+
+----------------------------------------------------------------------
 mirmon 2.11 -- 22 juli 2016
 
 o Brent Thompson spotted a bug in the computation for 'median' ; fixed.