#!/usr/bin/perl
use POSIX qw(:sys_wait_h setsid);

sub daemonize()
{
	open(STDIN, '/dev/null');
	open(STDOUT, '> /dev/null');
	open(STDERR, '> /dev/null');

	if ( ($pid = fork) < 0 ) {
		die "fork failed: $!";
	}
	if ($pid) {
		exit;
	} else {
	}
	setsid();
}

daemonize();

exec { $ARGV[0] } @ARGV;

