sub get_html {

  my %form;
  my $page;

  #  Get ID
  ( $form{id}, $page ) = @_;

  my $data;
  get_page: {
    #  Get web page
    my $response = $ua->post( $page, \%form );

    #  Check for errors
    if ($response->is_success) {
      $data = $response->content;
    } else {
      sleep 100;
      redo get_page;
    }
  }

  return \$data;
}