Help for this page

Select Code to Download


  1. or download this
    use Net::SMTP;
use Data::Dumper;
...
$mail->datasend(Dumper($mdarray));
$mail->dataend();
$mail->quit;
  2. or download this
    foreach my $row (@{$mdarray}) {
    $mail->datasend("data row: @{$row}");
}
  3. or download this
    foreach my $row (@{$mdarray}) {
    $mail->datasend("item 1: $row->[0]\n");
         ...
}