my $x=`exec perl -e "setpgrp; exec '/root/a.sh'"`;