#!/usr/bin/env perl

use v5.16.3;
use threads (exit => 'threads_only');
use threads::shared;

threads->create(\&thread);
threads->create(\&thread);
threads->create(\&thread);

while (threads->list(threads::all)) { sleep 1 }    #wait until has threads

sub thread {
	require FCGI; # <--- HERE IS THE DIFFERENCE

    sleep 3;

    threads->detach;
    threads->exit;

    return;
}

1;
__END__