DoctorKarma/bin/doctor_agustin.pl

#!/usr/bin/env perl

use v5.30.0;

use strict;
use warnings;

use Data::Dumper;
use JSON;

use DoctorKarma::Config;
use DoctorKarma::Telegram;
use DoctorKarma::Logger;

my $config = DoctorKarma::Config->new;
my $logger = DoctorKarma::Logger->new;
my $telegram =
  DoctorKarma::Telegram->new( telegram_token => $config->telegram_token );
while (1) {
    my $updates = $telegram->get_updates;
    for my $update ($updates->@*) {
        if (exists $update->{message}{text}) {
            my $message = $update->{message}{text};
            my $user_id = $update->{message}{from}{id};
            my $username = $update->{message}{from}{username};
            $logger->log_info("'$message' received from $username:$user_id");
        }
    }
}