--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/usbmgmt/usbmgrtest/t_ncm/netutil/client.pl	Wed Oct 20 12:04:53 2010 +0800
@@ -0,0 +1,56 @@
+#!/usr/bin/perl -w
+# Copyright (c) 2010 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:
+#
+
+use strict;
+use IO::Socket qw(:DEFAULT :crlf);
+
+use constant DEFAULT_ADDR	=> '192.168.3.100';
+use constant MY_ECHO_PORT	=> 5000;
+my ($byte_out, $byte_in) = (0,0);
+$/ = "\n";
+$| = 1;
+
+print "\nUsage: client.pl tcp|udp [ip] [port]\n\n";
+
+my $quit = 0;
+$SIG{INT}  = sub { $quit++ };
+
+my $tcp = shift;
+my $address = shift || DEFAULT_ADDR;
+my $port = shift || MY_ECHO_PORT;
+
+print "\nTry to connect to a $tcp server of $address:$port...\n";
+
+my $sock = IO::Socket::INET->new(PeerAddr => $address,
+                                 PeerPort => $port,
+                                 Proto  => $tcp)
+            or die "Can't connect: $!\n";
+
+while (my $msg_out = <>)
+{
+    last if $msg_out =~ /^\.$/;
+    print "out: $msg_out\n";
+    $sock->send($msg_out);
+
+    my $msg_in;
+    $sock->recv($msg_in, 10000);
+    print "in: $msg_in\n";
+}
+
+close $sock;
+
+
+