in reply to How can I timestamp each printed statement?

Initialize.. 
  my $now = sub (return scalar(localtime time)); # Creates a subroutin
+e reference

[download]
Use as: 
  print $now->(), .... # Makes a  call to the sub, each time $now->() 
+is used

[download]

     "As you get older three things happen. The first is your memory goes, and I can't remember the other two... " - Sir Norman Wisdom

In Section Seekers of Perl Wisdom