diff --git a/tests/ftp.pm b/tests/ftp.pm
index 76c6d5746abe1ffdcac413ca2a6552c0a876c4fd..2e125e293bacbdbe46783e8accfd8c14eb561158 100644
--- a/tests/ftp.pm
+++ b/tests/ftp.pm
@@ -112,6 +112,8 @@ sub pidkill {
             my $result = `tasklist -fi \"$filter\" 2>nul`;
             if(index($result, "$pid") != -1) {
                 system("taskkill -f -fi \"$filter\" >nul 2>&1");
+                # Windows XP Home compatibility
+                system("tskill $pid >nul 2>&1");
             }
         }
     }