diff --git a/doc/dev/dolibarr-doxygen-getversion.pl b/doc/dev/dolibarr-doxygen-getversion.pl
new file mode 100755
index 00000000000..216f7280ca7
--- /dev/null
+++ b/doc/dev/dolibarr-doxygen-getversion.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+#--------------------------------------------------------------------
+# Script recup version d'un source
+#
+# $Id$
+#--------------------------------------------------------------------
+
+
+$file=$ARGV[0];
+
+$commande='cvs status "'.$file.'" | sed -n \'s/^[ \]*Working revision:[ \t]*\([0-9][0-9\.]*\).*/\1/p\'';
+#print $commande;
+$result=`$commande 2>&1`;
+
+print $result;