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