Select Code to Download

$dbh->{LongReadLen} = 256 * 1024;
($body) = $dbh->selectrow_array("select content from $dtab where name 
+= '$name'");
 $body =~ s/\r/\n/g;

 open (OF, ">body.txt");
  print OF $body;
 close (OF);

 $msg = MIME::Lite->new(
                From => $from,
...

  MIME::Lite->send('smtp', 'smtpsvr.net, Timeout=>240);
  $msg->send();

s/\cM/\n/
s/\r\n/\n/