sub LetsRock
{
    my (@kids);

    for (my $x=0; $x < 10; $x++)
    {
        my ($kid) = threads->create( \&ThreadFunc, 'https://www.wellsfargo.com');

        if (defined($kid))
        {
            push(@kids, $kid);
        }

        sleep(1);
    }

    WaitForThreads(@kids);
}