Foro - Perl en Español

Tengo un problema, estoy haciendo un programa en perl , que hace una consulta en perl y el resultado de la misma la manda por mail, el programa funciona pero cuando la consulta me trae datos 'Null', me aparece un mensaje de error de perl que dice " no data in this part...". La pregunta es como hago para que haga el mail vacio y lo mande igual?????

Saludos a todos y muchas gracias por vuestra respuesta.

¿Qué módulos usas?
Muestra un poco de código si es que puedes

Gracias por tan rapida respuesta, Pero por suerte era un error menor me habia equivocado en el cuerpo del mensaje, no habia concatenado el mensaje.
Ahi va el codigo:

#!/usr/bin/perl

use ConectarBBDD; #Este modulo lo hice yo
use strict;
use Date::Manip;


my $ayer = UnixDate("yesterday",'%Y-%M-%D');
#my $hoy = UnixDate("today",'%Y-%M-%D');

my($dbh,$sth,$sth1,$sth2);

$dbh = ConectarBBDD->connect();


$sth = $dbh->prepare("select * from tabla1;") or die("no funciona " . $dbh->errstr);
$sth->execute() or die("Error de conexion: " . $sth->errstr);



$sth1 = $dbh->prepare("select * from tabla2;") or die("no funciona " . $dbh->errstr);
$sth1->execute() or die("Error de conexion: " . $sth1->errstr);



$sth2 = $dbh->prepare("select * from tabla3;") or die("no funciona " . $dbh->errstr);
$sth2->execute() or die("Error de conexion: " . $sth2->errstr);


my $mensaje1;
my $mensaje2;
my $mensaje3;


my @linea1 = $sth->fetchrow_array;
$mensaje1 = $linea1[0];

my @linea2 = $sth1->fetchrow_array;
$mensaje2 = $linea2[0];

my @linea3 = $sth2->fetchrow_array;
$mensaje3 = $linea3[0];



if ($linea1[0] eq ""){
$mensaje1 = "0";
}
else {
$mensaje1 = "Los segundos del fueron $linea1[0]\n";
}


if ($linea2[0] eq ""){
$mensaje2 = " $linea2[0] No se encontraron datos ";
}
else {
$mensaje2 = "Los segundos del fueron $linea2[0]\n";
}


if ($linea3[0] eq ""){
$mensaje3 = '$linea3[0]';
}
else {
$mensaje3 = "Los segundos defueron $linea3[0]\n";
}



use MIME::Lite;

my $mail = MIME::Lite->new(
From =>'[email protected]',
To =>'[email protected]',
Subject =>'salidas',
Data =>$mensaje1.$mensaje2.$mensaje3
) ;

#Pedir que se use SMTP

MIME::Lite->send('smtp', "mail.com", Timeout => 60 ) ;


# Enviamos el mensaje
$mail->send;

#Cerramos conexion con BD
$sth->finish;