Update pgrp_perl.sh

changed