my $dbh     = database->connect_mysql();
my $sql     = "select * FROM mytable 
               WHERE date < DATE_ADD(NOW(), INTERVAL -30 DAY)";
my $records = $dbh->selectall_arrayref( $sql, { Slice => {} } );
foreach my $record ( @$records ) {
  my $user = $record->{user};
  my $id   = $record->{id};
  print "Data Test: $user - $id<br>";
}