/start +

notify.send принимает массив

telegram.pl

@@ -59,7 +59,7 @@ $ua->max_redirects(5);
 
 ##########################
 
-#=cut
+=cut
 hook before_dispatch => sub
 {
   my $c = shift;
@@ -71,7 +71,7 @@ hook after_dispatch => sub
   my $c = shift;
   say $c->res->to_string;
 };
-#=cut
+=cut
 
 ##########################
 
@@ -133,7 +133,13 @@ sub incoming_message
 sub notify::telegram::send
 {
   my $body = shift;
-  notify($body->{to}, $body->{message});
+  my $to = $body->{to};
+  $to = [ $to ] unless ref($to) eq "ARRAY";
+  
+  foreach (@$to)
+  {
+    notify($_, $body->{message});
+  }
 }
 
 ############################
@@ -158,6 +164,16 @@ sub command::my_id
   notify($chatid,"Ваш идентификатор в Телеграме: *$chatid*\nУстановите его в личном кабинете", $rest);
 }
 
+sub command::start
+{
+  my $cmd = shift;
+  my $args = shift;
+  my $chatid = shift;
+  my $rest = shift;
+  
+  notify($chatid, "Бот провайдера \"Макеевка-Онлайн\".\nДля получения списка комманд наберите */help*");
+}
+
 #sub command::credit
 #sub command::balance