No se cual es el error, me pasa con todas las variables; publico el código por las dudas.....
:D Lo que intenta hacer el programa es extraer 2 campos con datos de la consulta y enviarlos por mail
my $ayer = UnixDate("yesterday",'%Y-%m-%d');
my $hoy = UnixDate("today",'%Y-%m-%d'); #
my($dbh,$sth,$sth1,$sth2,$mensaje1,$mensaje2,$mensaje3,$mail);
my(@linea1,@linea2,@linea3);
my $sthtest;
###################################################################
# CONEXION A LA BASE DE DATOS #
###################################################################
#$dbh = ConectarBBDD->connect();
$dbh = ...