Cool! I think that scripts like this show Perl power and strength!

P. S. If you will put some delimiter (like ':') between hours, minutes and seconds you watch will be more clear

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);