Trying to figure out how to extract certificate from SSL session

ssltest.pl

#!/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Dumper;
use IO::Socket::INET;
use Net::SSLeay::OO;
use Net::SSLeay::OO::X509;
use Net::SSLeay::OO::Constants qw(OP_ALL);

my $sslctx = Net::SSLeay::OO::Context->new;
$sslctx->set_options(OP_ALL);

my $client = IO::Socket::INET->new('www.google.com:443')
	or die "FAIL: $!";
my $sslclient = Net::SSLeay::OO::SSL->new(ctx => $sslctx);
$sslclient->set_fd($client);
$sslclient->connect;

my $cert = $sslclient->get_peer_certificate;

# Shows the certificate subject
print $cert->get_subject_name->oneline . "\n";

print Dumper($cert);