--- trans-proxy-tor.original	Mon Jun  5 06:11:12 2006
+++ trans-proxy-tor	Thu Jun  8 14:08:47 2006
@@ -126,6 +126,13 @@
       sysopen $Pf, '/dev/pf', O_RDONLY
         or die "sysopen('/dev/pf', O_RDONLY) failed: $!";
       *_get_original_destination = \&_get_original_destination_pf;
+    } elsif ($^O eq 'freebsd') {
+      require 'sys/ioctl.ph';
+      require 'netinet/in.ph';
+      require 'net/pfvar.ph';
+      sysopen $Pf, '/dev/pf', O_RDWR
+        or die "sysopen('/dev/pf', O_RDWR) failed: $!";
+      *_get_original_destination = \&_get_original_destination_pf;
     } elsif ($^O eq 'linux') {
       *_get_original_destination = \&_get_original_destination_netfilter;
     } else {