#!/usr/bin/perl
use warnings;
use strict;
use Net::SMTP::SSL;


  my $smtp = Net::SMTP::SSL->new(
    'smtp.gmail.com',
    Port => 465,
    Timeout => 30,
    Debug   => 1,
  );
  
print $@;  

##</code><code>##

Net::SMTP::SSL: Bad service ''