use Email::Sender::Simple qw(sendmail); use Email::Sender::Transport::SMTPS; use Try::Tiny; my $transport = Email::Sender::Transport::SMTPS->new( host => $host, ssl => 'starttls', sasl_username => $username, sasl_password => $password, debug => 0, # or 1 ); use Email::Simple::Creator; # or other Email:: my $message = Email::Simple->create( header => [ From => $username, To => $phone, Subject => 'Subject title', ], body => "Your link is $link\n", ); try { sendmail( $message, { transport => $transport } ); } catch { die "Error sending email: $_"; };