Select Code to Download

#!/usr/bin/perl -l
use strict;
...
$thra-> join;
my $thrb = threads->create (\&getgoog);
$thrb-> join;