vcs.maemo.org Git - pkg-perl/blob - deb-src/libnet-ssleay-perl/libnet-ssleay-perl-1.35/examples/sslcat.pl

   1 #!/usr/bin/perl
   2 # sslcat.pl - Send a message and receive a reply from SSL server.
   3 #
   4 # Copyright (c) 1996-2001 Sampo Kellomaki <sampo@iki.fi>, All Rights Reserved.
   5 # $Id: sslcat.pl,v 1.3 2003/08/17 07:07:28 sampo Exp $
   6 # Date:   7.6.1996
   7
   8 $host = 'localhost' unless $host = shift;
   9 $port = 443         unless $port = shift;
  10 $msg = "get \n\r\n" unless $msg = shift;
  11
  12 $ENV{RND_SEED} = '1234567890123456789012345678901234567890';
  13 print "$host $port $msg\n";
  14 use Net::SSLeay qw(sslcat);
  15 print sslcat($host, $port, $msg);
  16
  17 __END__