diff -r 000000000000 -r 1918ee327afb tools/activeqt/testcon/scripts/perlscript.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/activeqt/testcon/scripts/perlscript.pl	Mon Jan 11 14:00:40 2010 +0000
@@ -0,0 +1,65 @@
+#############################################################################
+##
+## Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies).
+## All rights reserved.
+## Contact: Nokia Corporation (qt-info@nokia.com)
+##
+## This file is part of the ActiveQt module of the Qt Toolkit.
+##
+## $QT_BEGIN_LICENSE:LGPL$
+## No Commercial Usage
+## This file contains pre-release code and may not be distributed.
+## You may use this file in accordance with the terms and conditions
+## contained in the Technology Preview License Agreement accompanying
+## this package.
+##
+## GNU Lesser General Public License Usage
+## Alternatively, this file may be used under the terms of the GNU Lesser
+## General Public License version 2.1 as published by the Free Software
+## Foundation and appearing in the file LICENSE.LGPL included in the
+## packaging of this file.  Please review the following information to
+## ensure the GNU Lesser General Public License version 2.1 requirements
+## will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
+##
+## In addition, as a special exception, Nokia gives you certain additional
+## rights.  These rights are described in the Nokia Qt LGPL Exception
+## version 1.1, included in the file LGPL_EXCEPTION.txt in this package.
+##
+## If you have questions regarding the use of this file, please contact
+## Nokia at qt-info@nokia.com.
+##
+##
+##
+##
+##
+##
+##
+##
+## $QT_END_LICENSE$
+##
+#############################################################################
+
+sub QAxWidget2_Click {
+	$QAxWidget2->{'lineWidth'} = $QAxWidget2->{'lineWidth'} + 1;
+	$MainWindow->logMacro(0, "Hello from Perl: QAxWidget2_Click", 0, "");
+}
+
+sub fatLines
+{
+	$QAxWidget2->{'lineWidth'} = 25;
+}
+
+sub thinLines
+{
+	$QAxWidget2->{'lineWidth'} = 1;
+}
+
+sub setLineWidth(width)
+{
+	$QAxWidget2->{'lineWidth'} = width;
+}
+
+sub getLineWidth()
+{
+	return $QAxWidget2->{'lineWidth'};
+}