1: 2eval 'exec perl -w -S $0 ${1+"$@"}' 3 if 0; 4 5use POSIX 'setsid'; 6 7# ---------------------------------------------------------------------- 8# parameterisation 9# 10# note: to add more programs, e.g. m