'message' => bless( {
          'from_id' => 392149437,
          'to_id' => bless( {
            'channel_id' => 1295963795
          }, 'Telegram::PeerChannel' ),
          'date' => 1577961257,
          'flags' => 256,
          'message' => 'perl
BEFOREHEAD: close door, each window & exit; wait until time. open spellbook, study, read (scan, select, tell us); write it, print the hex whole each watches, reverse its length, write again; kill spiders, pop them, chop, split, kill them. unlink arms, shift, wait & listen (listening, wait), sort the flock (then, warn the "goats" & kill the "sheep"); kill them, dump qualms, shift moralities, values aside, each one; die sheep! die to reverse the system you accept (reject, respect); next step, kill next sacrifice, each sacrifice, wait, redo ritual until "all the spirits are pleased"; do it ("as they say"). do it(*everyone***must***participate***in***forbidden**s*e*x*). return last victim; package body; exit crypt (time, times & "half a time") & close it, select (quickly) & warn your next victim; AFTERWORDS: tell nobody, wait, wait until time; wait until next year, next decade; sleep, sleep, die yourself, die at last',
          'id' => 144562
        }, 'Telegram::Message' ),

use strict;
use warnings;
 
use CGI;
 
    # create a CGI object (query) for use
my $q = CGI->new;
 
# Process an HTTP request
my @values  = $q->multi_param('form_field');
my $value   = $q->param('param_name');
 
my $fh      = $q->upload('file_field');
 
my $riddle  = $q->cookie('riddle_name');
my %answers = $q->cookie('answers');
 
# Prepare various HTTP responses
print $q->header();
print $q->header('application/json');