Select Code to Download

#! perl -slw

...
    print "$toc{$_} => ", $_->join, "\n" for joinable;
}
print "all post-commands are complete\n";

$VAR1 = bless( do{\(my $o = '25730180')}, 'threads' );

...
 => 3

all post-commands are complete