You might want to take a look at shred.

I've a recollection that I read somebody was working on a Perl API/version - but for the life of me I can't remember where.