Using random backoff

gistfile1.pl

use POE;
use POE::Component::Client::TCP;

use Proc::BackOff::Random;

my $backoff = Proc::BackOff::Random->new( { 
   min => 5 , 
   max => 100 } );

POE::Component::Client::TCP->new(
    RemoteAddress => $config{'scanner_host'},
    RemotePort    => $config{'scanner_port'},
    Connected     => sub {
      $backoff->success();
    },
    ServerInput   => sub {
      # do stuff
      $backoff->success();
    ,
    Disconnected => sub {
      $kernel->delay( reconnect => $backoff->delay() );
      $backoff->failure();
    },
    ServerError => sub {
      $kernel->delay( reconnect => $backoff->delay() );
      $backoff->failure();
    },
}

POE::Kernel->run();