Just peruse CPAN's Tie:: modules. That should give you plenty of ideas.

To get more clock accuracy, use Time::HiRes.

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print