A Perl implementation of setsid(1)

setsid.pl

#!/usr/bin/env perl
# 
# A Perl implementation of setsid(1)
#
# setsid(1) - run a program in a new session
# http://man7.org/linux/man-pages/man1/setsid.1.html

use POSIX setsid;
setsid() or die "Failed to create new session";

exec @ARGV;

There is a bug there and it is important:

• Do a fork before calling setsid
• From https://perldoc.perl.org/POSIX
• My example uses minimal amount of RAM usage by not exporting anything
• call it with the fully qualified name.
• Nothing wrong with use POSIX qw(setsid);
• Die with a message is descriptive enough, $! tend to follow the local language though
• This works:

`use POSIX ();

fork() && exit(0);
POSIX::setsid() or die $!;
exec @argv;
`