Net::GnuTLS high-level bindings

net-gnutls-high-level.pl

use IO::Socket::IP;
use Socket qw(SOCK_STREAM)
use Net::GnuTLS::Client;
use Net::GnuTLS::Credentials;

# Connect to server:

my $socket = IO::Socket::IP->new(
    PeerHost => "metacpan.org",
    PeerPort => "https",
    Type     => SOCK_STREAM ) or die "Cannot construct socket - $@";

# Perform TLS handshake:

my $client = Net::GnuTLS::Client->new;
my $creds = Net::GnuTLS::Credentials->new( x509_file => "ca.pem" );
$client->credentials($creds);
$client->transport($socket);
$client->handshake or die "Handshake error: " . Net::GnuTLS::strerr($!);

# Send and receive:

$client->send("GET / HTTP/1.0\r\n\r\n");
my $response = $client->recv(1024) or die "Error: " .  Net::GnuTLS::strerr($!);
print $response->buffer, "\n";

# Upon losing interest:

$client->bye;
$socket->shutdown;