#!/usr/bin/perl5.8.4
eval{    use Socket;
  use Net::SSLeay1::Handle qw/shutdown/;
#  my ($host, $port) = ("localhost", 443);

#  tie(*SSL, "Net::SSLeay::Handle", $host, $port);

#  print SSL "GET / HTTP/1.0\r\n";
#  shutdown(\*SSL, 1);
#  print while (<SSL>);
#  close SSL;
}
