Add perl -d: completion.

completions/perl

@@ -61,6 +61,15 @@ _perl()
             fi
             return 0
             ;;
+        -d|-dt)
+            if [[ $cur == :* ]]; then
+                temp="${cur#:}"
+                prefix="$prefix${cur%$temp}"
+                cur="Devel::$temp"
+                _perlmodules $1
+            fi
+            return 0
+            ;;
     esac
 
     if [[ "$cur" == -* ]]; then