>>272 こんなんは？

#!/usr/bin/perl -w

use strict;

package LogHandle;
require Tie::Handle;

@LogHandle::ISA = qw(Tie::StdHandle);

sub TIEHANDLE {
open(SV, ">& $_[1]");
bless \*SV, $_[0];
}

sub PRINT {
*SV = $_[0];
my @t = (localtime);
print SV sprintf('%d%02d%02d-%02d:%02d:%02d: %s',
$t[5] + 1900, $t[4] + 1, @t[3, 2, 1, 0],
"$_[1]");
}

sub PRINTF { PRINT($_[0], sprintf("$_[1]", @_[2 .. $#_])) }
sub _fh { *{$_[0]} }

# つづく…