Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}

run_test();

Thread running.. Done.
Destroyed from thread 1
Destroyed from thread 0