Select Code to Download

 #/usr/bin/perl -w
use strict;
use warnings;
...
    sleep 3;
    print "exiting thread.\n";
}

 output:
End.
Perl exited with active threads:
...
        0 finished and unjoined
        1 running and detached