Select Code to Download

my %orcPriceHsh:shared=1;
my %signatureHsh:shared = ("DE00084695946" => "0000000000.000000");
$orcPriceHsh{"0000000000"} = \%signatureHsh;

 handleMessages($configHsh{General}{ListenPort},%orcPriceHsh);

$transitCalcThread=threads->new(\&calcTransitTimes, $XmlRpcClient,$itr
+sQueue,%orcPriceHsh);
$transitCalcThread->detach;

sub handleMessages
{
    my $port=shift();
    my %oph=@_;

my %sHsh:shared = ($signature => $timeStamp);
$oph{$nixSeconds} = \%sHsh;

msg("in handleMessages() oph :");
dump(%oph);

sub calcTransitTimes
{
...

msg("in calcTransitTimes() args :");
dump(%args);