You should be able to do this with \write18.