Perl and LJ?

I'm looking for a simple way to submit an entry via a perl script? Weren't there some LJ modules around for a while that I could use? Basically I just want a simple function that will take a username/password/entrytext and post it to LJ. Anyone know of anything already written to do this or should I start to hack JLJ?