scripting using qmail-queue?

[Jeremy Hansen]

Can someone possible show me an example script in perl that puts a message
into the queue using qmail-queue directly?  I'm trying to experiment with
ways to deliver mail at fair and low overhead kind of way.

Thanks
-jeremy