trap "kill 0" EXIT

##</code><code>##

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