Help for this page

Select Code to Download


  1. or download this
    1022:        return $self;
  DB<15> x $self                                                      
+          
...
   'smtp' => 'mail.mydomain.org'
   'smtpaddr' => 'J?&#1009;'
   'tls_allowed' => 1
  2. or download this
    1322:        my $s = $self->{'socket'} || $self->Connect();
  DB<3> x $self                                                       
+          
...
   'to' => 'devmail@mydomain.org'
   'to_list' => ARRAY(0x1eecbe0)
      0  'devmail@mydomain.org'
  3. or download this
    #!/usr/bin/perl 
  
...
    }

$smtps->Close();