diff --git a/completions/perl b/completions/perl
index f41a309f..ae33c4df 100644
--- a/completions/perl
+++ b/completions/perl
@@ -27,6 +27,10 @@ _perl()
         temp=$cur
         prev=${temp:0:2}
         cur=${temp:2}
+        if [[ $prev == -d && $cur == t* ]]; then
+            prev=-dt
+            cur=${cur:1}
+        fi
         optPrefix=-P$prev
         optSuffix=-S/
         prefix=$prev
diff --git a/test/lib/completions/perl.exp b/test/lib/completions/perl.exp
index f3a51841..bad40d8f 100644
--- a/test/lib/completions/perl.exp
+++ b/test/lib/completions/perl.exp
@@ -117,4 +117,10 @@ sync_after_int
 assert_complete_any "perl -m-File::"
 sync_after_int
 
+assert_complete_any "perl -d:"
+sync_after_int
+
+assert_complete_any "perl -dt:"
+sync_after_int
+
 teardown