#!/usr/bin/perl

use strict;
use warnings;
use threads;

binmode STDOUT, ':encoding(utf-8)';

for my $i (1..4) {
	threads->create(sub {})->join();
}