diff --git a/source/script/tests/Samba3.pm b/source/script/tests/Samba3.pm
index f040432ce6f..3c8a2c06dda 100644
--- a/source/script/tests/Samba3.pm
+++ b/source/script/tests/Samba3.pm
@@ -8,6 +8,7 @@ package Samba3;
 use strict;
 use Cwd qw(abs_path);
 use FindBin qw($RealBin);
+use POSIX;
 
 sub binpath($$)
 {