sub ct {
   my $x = 5;
   threads->create(\&worker);
}