package Log::Minimal::FlyingChair; use strict; use warnings; use utf8; use open IO => ':encoding(utf-8)', ':std'; use Log::Minimal; use Time::HiRes qw(sleep); our $VERSION = '0.01_01'; our $Interval = 5; our $Chair = "ε=コ_"; my $pid; my $print_orig = $Log::Minimal::PRINT; $Log::Minimal::PRINT = sub { $print_orig->(@_); kill "TERM", $pid if $pid; $pid = fork || do { $|++; while (1) { sleep $Interva