Pure Perl LZH

Hi,

is there a pure Perl implementation of LZH out there? I've
found  
Algorithm::Huffman which is a start, and
Compress::Zlib::Perl which  
only does the inflating (which is nice, but I need deflating
as  
well). Google hasn't been very helpful, any pointers?

-- 
Robin Berjon
    Senior Research Scientist
    Expway, http://expway.com/