my $response_url = "www.divshare.com";
open my $FILE, "video.avi" or die "Cannot open file\n";

## Attempt to upload a file
my $upload = upload( $user_agent, $upload_ticket, $response_url, $FILE, $folder_id, );

close $FILE;

# Not yet Supported: Email, file_descript, and multiple files
sub upload
{
  my $post_url  = 'http://upload.divshare.com/api/upload';
  my ($user_agent, $upload_ticket, $response_url, $file1, $folder_id) = @_;

  my $html_form =
    '<form action="' . $post_url . '" method="post" enctype="multipart/form-data">

    <input type="hidden" name="upload_ticket" value="' . $upload_ticket . '" />
    <input type="hidden" name="response_url" value="' . $response_url . '" />

    <input type="file" name="file1" />
    <input type="text" name="file1_description" maxlength="255" />

    <select name="folder_id">
      <option value="' . $folder_id . '">[Folder Title 1]</option>
    </select>

    <input type="submit" value="Upload" />

  </form>';

  use HTML::Form;
  my $form = HTML::Form->parse($html_form, $post_url);

  # set form attributes
  $form->attr("upload_ticket", $upload_ticket);
  $form->attr("file1", $file1);
  $form->attr("file1_description", "$file1");
  $form->attr("folder_id", $folder_id);

  push @{ $user_agent->requests_redirectable }, 'POST';
  my $upload_response = $user_agent->request($form->click) or die "User-Agent POST failed\n";
  print $upload_response->base . "\n";

  # Check the return object
  if( $upload_response->is_success )
  {
    print "STATUS: " . $upload_response->status_line . "\n";
    my $upload_xml = $upload_response -> content;
    if( defined $upload_xml && $upload_xml !~ "" )
    {
      if( $upload_xml =~ "error" )
      {
        print $upload_xml . "\n";
      }
    }
    elsif( defined $upload_response )
    {
      print "Returned no content\n Upload Response: $upload_response\n";
    }
    else
    {
      print "$upload_xml\n";
    }
    return $upload_xml;
  }
  else
  {
    print STDERR $upload_response->status_line, "\n";
  }
}