mstering triggers

BEGIN { push ( @INC, ("C:/Perl/lib", "C:/Perl/site/lib")) };

use POSIX qw(strftime);
my $timestamp = &timestamp;
$jmc->showme("$timestamp", "yellow");


my $infile = "./test.txt";
my @queue;

sub timestamp {
        return strftime "%H:%M:%S", localtime;
}

sub queue_load {
    open(my $fh, "<", $infile) || do { $jmc->showme("Не удалось открыть файл очерди мастеринга.", "yellow"); return };
    while(<$fh>) {
        chomp;
        push @queue, $_;
    }
}

sub queue_show {
    if (@queue) {
        $jmc->showme("Очередь:", "yellow");
        my $z = join("\n", @queue);
        $jmc->showme("");
        $jmc->showme($z);
        $jmc->showme("------------------", "yellow");
    } else {
        $jmc->showme("Очередь пуста", "yellow");
    }
}

sub queue_next {
    if (@queue) {
        my $s = shift(@queue);
        $jmc->setvar("spell", $s);
        $jmc->showme("Задание на мастеринг: $s", "yellow");
    } else {
        $jmc->showme("Очередь пуста", "yellow");
        $jmc->disconnect();
    }
}

sub queue_add {
    if (!$_[0]) {
        $jmc->showme("Пропущен аргумент.", "yellow");
    } else {
        push @queue, $_[0];
        $jmc->showme("Добавлено задание: $_[0]", "yellow");
    }
}