use Tie::Handle::TimeStamp();

tie *STDOUT, 'Tie::Handle::TimeStamp', ">&STDOUT";
print("test\n");

# -or-

Tie::Handle::TimeStamp->wrap(\*STDOUT);
print("test\n");