Select Code to Download

 $SIG{'URG'} = sub {

...
        print "\n Received CLD in :: ". $host->getIP();
    } ;

sub fetchResyncStatus
{
...
        print "\n\nStatus in DB :: " .$status."\n";
    return 'NORMAL';