#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::Simple;
use LWP::Simple::Post qw(post);
use LWP::UserAgent;
use HTTP::Request::Common;

my $user = 'testrat';
my $pass = 'testrat';
my $type = 'free';
my $fileName = 'test.jpg';

# RapidShare API Documentation @ http://images.rapidshare.com/apidoc.txt

my $nextuploadserver = get('http://rapidshare.com/cgi-bin/rsapi.cgi?sub=nextuploadserver');
die 'nextuploadserver broken' if $nextuploadserver !~ /^\d+$/;
print 'nextuploadserver:' . $nextuploadserver . "\n";

my $userAgent = LWP::UserAgent->new();
my $request = POST 'http://rs' . $nextuploadserver . '.rapidshare.com/cgi-bin/rsapi.cgi',
              Content_Type => 'multipart/form-data',
              Content => [
              sub => 'upload',
              login => $user,
              password => $pass,
              filename => $fileName,
              filecontent => [$fileName],
             ];
my $response = $userAgent->request($request);
die 'fucked up' if $response->is_error();
print $response->content . "\n";