use strict;
use warnings;
-use Config qw/%Config/;
+use Config qw<%Config>;
BEGIN {
if (!$Config{useithreads}) {
use Thread::Cleanup;
-diag 'This will leak some scalars' unless $] >= 5.011005;
+diag 'This will leak some scalars' unless "$]" >= 5.011_005;
our $x = -1;