use strict;
use vars qw(%dbglevel $fp);
-use FileHandle;
use DXUtil;
use DXLog ();
use Carp;
sub _store
{
my $t = time;
+ $fp->writeunix($t, "$t^$@") if $@;
+ $fp->writeunix($t, "$t^$!") if $!;
for (@_) {
$fp->writeunix($t, "$t^$_");
print STDERR $_;