Help for this page
my $tmp_log = ($Output{host} ||= []); push @$tmp_log, $data; if (10 < @$tmp_log) { shift @$tmp_log; }
unless (exists $Output{host}) { $Output{host} = []; } my $tmp_log = $Output{host};