Using linear backoff

gistfile1.pl

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

use Proc::BackOff::Linear;

my $backoff = Proc::BackOff::Linear->new( {
   slope => 5,
   b => 0,
   x => 'count' } );

$backoff->max_timeout(60 * 5);

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();