#!/usr/bin/perl

# Setup Pragmas.
use strict;
use warnings;
use threads;
use HTTP::Request;
use LWP::UserAgent;

sub main ()
{
    print "Starting a thread to find all SHAs \n";
    threads->create( sub{ findAndQ_sha() } )->detach();
    print "This line should be reached without error messages.\n";
    return 0;
}

sub findAndQ_sha
{
    print "Worker thread findAndQ_sha() running.\n";
    sleep 1_000_000_000;    # For testing, sleep for a long time.
    return;
}

exit main();