use strict;
use warnings;
use 5.010;

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

--output:--
Recompile Perl with threads to run this program. at 3perl.pl line 6.