The standard way folks handle reconnection

gistfile1.pl

    Disconnected => sub {
        my ($heap, $kernel) = @_[HEAP, KERNEL];


        $heap->{'logger'}->error("disconnected from ".$config{'scanner_host'}.":".$config{'scanner_port'}." enqueueing reconnect.");
        $kernel->delay( reconnect => 60 );
        $backoff->failure();
    },
    ServerError => sub {
        my ($heap, $kernel) = @_[HEAP, KERNEL];

        $heap->{'logger'}->error("server error from ".$config{'scanner_host'}.":".$config{'scanner_port'}." enqueueing reconnect.");
        $kernel->delay( reconnect => 60 );
        $backoff->failure();
    },