#!/usr/bin/env perl

use strict;
use warnings;

use POSIX;

if ($ENV{RUN}++) {
    while (1) {
        sleep(1);
    }
} else {
    if (my $pid = fork()) {
        $SIG{INT} = $SIG{TERM} = sub {
            kill(-15, $pid) || kill(15, $pid);
        };

        waitpid($pid, 0);
    } else {
        POSIX::setsid();
        exec($^X, $0, @ARGV);
    }
}