perl: use call-process-region