perl -e 'use Tie::STDERR \&test; sub test {print "ERROR " . time() . " @_"}; print STDERR "hello world!";'