$ cat ct.pl
#!/usr/bin/perl 
use strict;
use warnings;
use POSIX qw( :unistd_h :sys_wait_h setsid WNOHANG );
POSIX::setsid() or die 'failed';
$ perl -cw ct.pl
ct.pl syntax OK
$ perl ct.pl
$ perlcritic --stern ct.pl
ct.pl source OK