I like the idea of a Perl archive (even if shar already exists :). One thing I'd do just for the sake of aesthetics is to spit out the UUencoded text after a __DATA__ token in the extractor. That is, let all the extraction machinery sit at the top as a human-readable script and read from its own DATA handle...

CJW