--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tsrc/testing/tools/setversion.pl	Tue Jan 26 12:00:59 2010 +0200
@@ -0,0 +1,60 @@
+#
+# Copyright (c) 2007 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description: 
+#
+
+
+#------------------------------------------------------------------------------------
+# Includes
+#------------------------------------------------------------------------------------
+#use strict;
+use warnings;
+use FindBin; # for FindBin:Bin
+
+#------------------------------------------------------------------------------------
+# GLOBAL CODE
+#------------------------------------------------------------------------------------
+
+my $version = 10.1;
+my $file = "";
+
+while(scalar(@ARGV) >= 1)
+{
+	my $argument = shift(@ARGV);
+
+	if($argument eq "-v")
+		{
+		$version = shift(@ARGV);
+		}
+		
+	if($argument eq "-f")
+		{
+		$file = shift(@ARGV);
+		}
+}
+
+open(FILE_HANDLE, $file) or die ("Could not read file '$file'\n");
+my @lines = <FILE_HANDLE>;
+close(FILE_HANDLE);
+
+foreach my $line ( @lines )
+  {
+  if( $line =~ /\/epoc32([^\"]+)\.dll/i )
+   	{
+     	my $filename = "/epoc32" . $1 . ".dll";
+			$filename =~ s/\//\\/g;
+			print $filename . " TO VERSION " . $version . "\n";
+			system("elftran $filename -version $version");
+		}
+	}
\ No newline at end of file