use threads;
use threads::shared;


my $x = 20;

sub do_stuff{ 
    print "$x \n";    #closes over $x (as above)
}

threads->create(\&do_stuff)->join();

--output:--
20