my $dbh = database->connect_mysql();
my $sql = "select *  FROM mytable WHERE date < DATE_ADD(NOW(), INTERVAL -30 DAY)";
my $sth = $dbh->prepare($sql) or "Can't select from table: ",$dbh->errmsg;
   $sth->execute();

while ( my $hash_ref = $sth->fetchrow_hashref() ) {
    my $user = $hash_ref->{user} || '';
    my $id   = $hash_ref->{id} || '';
    print "Data Text: $user - $id<br/>";
}