I am sorry to have to come begging for more help, but I am thoroughly stuck on the upload code for this. I have tried a few variations, but nothing seems to work. I ended up using a form (as the API instructions specified), I don't know if my code will help at all.

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_ticke
+t . '" />
    <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 "Use
+r-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";
  }
}
[download]

I typically get this print out when I run the script.

http://www.divshare.com?error=true&description=Please+upload+a+file.
STATUS: 200 OK
Returned no content
Upload Response: HTTP::Response=HASH(0x8a62e0c)

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.