This is a Perl script.
One current limitation is that the file tagging in the -save option file names are limited to 9999 calls of XSTAR.