($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr},
					$arg->{LocalPort},
					$arg->{Proto})
			or return _error($sock, $!, $@);

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use Email::Stuff;

my $LocalHost  = 'jasmines.mikebaas.org';
my $LocalPort  = '2525';
my $RemoteHost = 'smtp.gmail.com';
my $RemotePort = '465';

my $objst = Email::Stuff
      ->to($ARGV[0])
      ->from($ARGV[1])
      ->subject($ARGV[2])
      ->text_body($ARGV[3])
;

$objst->send(
              'SMTP',
      ssl       => 1,
      Host      => $RemoteHost,
      Port      => $RemotePort,
      Proto     => 'tcp',
      username  => $ARGV[4],
      password  => $ARGV[5],
      Debug     => 1,
      LocalAddr => $LocalHost,
      LocalPort => $LocalPort,
);