diff --git a/lib/NGCP/Cleanup.pm b/lib/NGCP/Cleanup.pm
index 39b0823..bd0aa21 100644
--- a/lib/NGCP/Cleanup.pm
+++ b/lib/NGCP/Cleanup.pm
@@ -665,7 +665,7 @@ SQL
 DELETE FROM $table WHERE $col < unix_timestamp(date(date_sub(now(), interval ? day))) $limit
 SQL
         }
-        $self->error("Cannot delete: $DBI:errstr") if $DBI::err;
+        $self->error("Cannot delete: $DBI::errstr") if $DBI::err;
         $aff //= 0;
         $deleted_rows += $aff;
         last unless $aff > 0;