$ cat 3perl.pl
use strict;
use warnings;
use 5.010;
use Config;

$Config{useithreads} or die('Recompile Perl with threads to run this program.');

$ perl 3perl.pl
Recompile Perl with threads to run this program. at 3perl.pl line 6.