helper  script for perl