nt-retry-wrapper.pl

sub nt_with_retry {
    my ( $nt, $method, @args ) = @_;

    my $result;
    my $redo = 0;
    my $delay = 0.25;
    do {
      try {
        $result = $nt->$method(@args);
      }
      catch {
        die $_ if $_->code < 500;
        local $\ = undef;
        print "Trying again.";
        print STDERR $_;
        $redo++;
        sleep $delay;
        $delay *= 2;
      }
    } while ($redo > 0 && $redo < 11);

    return $result;
}