Silly little timer snippet for Perl scripts.