XText - strings extractor for perl
XText < <perl script> > <messages.po>
Minimal version of strings extractor (just for testing)
Must be completely rewritten.