{
    local $" = ' ';
    open my $lgh, '>>', $log or die $!;
    print $lgh "@x", $/      or die $!;
    close $lgh               or die $!;
}