Select Code to Download

SELECT * FROM messages
    -> WHERE DATE_SUB(CURDATE(),INTERVAL 1 DAY) <= message_data;

my $data = qq(SELECT * FROM messages..);
my $sth = $dbh->prepare($data);
$sth->execute();