Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libnet-ssleay-perl / libnet-ssleay-perl-1.35 / examples / tcpcat.pl

diff --git a/dev/i386/libnet-ssleay-perl/libnet-ssleay-perl-1.35/examples/tcpcat.pl b/dev/i386/libnet-ssleay-perl/libnet-ssleay-perl-1.35/examples/tcpcat.pl
new file mode 100755 (executable)
index 0000000..d505d9e
--- /dev/null
+++ b/dev/i386/libnet-ssleay-perl/libnet-ssleay-perl-1.35/examples/tcpcat.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+# tcpcat.pl - Send a message and receive a reply from TCP server.
+#
+# Copyright (c) 2003 Sampo Kellomaki <sampo@iki.fi>, All Rights Reserved.
+# $Id$
+# 17.8.2003, created --Sampo
+ 
+$host = 'localhost' unless $host = shift;
+$port = 443         unless $port = shift;
+$msg = "get \n\r\n" unless $msg = shift;
+
+print "$host $port $msg\n";
+use Net::SSLeay qw(tcpcat);
+print tcpcat($host, $port, $msg);
+ 
+__END__