my $thread = threads->create("detached_thread");
$_->join for threads->list;

sub detached_thread {
   my $endtime = (time+1800);
   while (1) {
      if (time >= $endtime) {
         print "30 minutes have passed!\n";
         exit(0);
      }
   }
}