You could try out cmdow: it's small and efficient.
Not a Perl solution, but then, don't we all think that TMTOWTDI?
HTH,
Ant9000