diff --git a/Xcode/scripts/increment_version.pl b/Xcode/scripts/increment_version.pl
new file mode 100644
index 0000000000..d0a8956f17
--- /dev/null
+++ b/Xcode/scripts/increment_version.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+use File::Copy;
+
+$ver = 0;
+if( open FH, '<ver.cpp' )
+{
+	<FH> =~ /version_num = (\d+);/ and $ver = $1 + 1;
+	close FH;
+}
+chop( $date = `date` );
+chop( $time = `time` );
+open FH, '>.ver.tmp' or die $!;
+print FH <<"EOF";
+extern const unsigned long version_num = $ver;
+extern const char *const version_date = "$date";
+extern const char *const version_time = "$time";
+EOF
+close FH;
+move '.ver.tmp', 'ver.cpp';