Я пишу простой набор средств автоматизации тестирования, который сообщит мне количество пройденных и неудачных тестов. Ниже приведен простой пример, который будет описывать код:

#! /usr/bin/perl -w

use Test::Simple tests => 1;

print "Enter the name of the Book: ";
$name = ;
chomp($name);

print "You have entered $name \n";

$ori_name = "TextBook";

chomp($ori_name);

ok($name eq $ori_name, 'Checking name');

Вывод, который я получаю после ввода 'Текстовое окно' как входные данные выглядит следующим образом:

1..1
Enter the name of the Book: TextBook
You have entered TextBook
ok 1 - Checking name

Я хотел бы перенаправить тот же вывод в файл, который должен выглядеть

ok 1 - Checking name

Если я добавлю следующую подпрограмму

log_message (ok ($name eq $ori_name, 'Checking name');


sub log_message
{
    my $message = @_;

    open(DA, '>>PJ.txt') or die "Couldn't open file PJ.txt";

    print DA $message;

    close (DA);
}

Тогда я получаю либо1 или же ''0 - не тот текст, который я хотел бы.

Как мне поступить так, чтобы результат моего кода перенаправлялся в файл, который должен иметь следующий формат:

ok 1 - Checking name

ok 2 - Checking others

и так далее?