use strict;
use warnings;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $response = $ua->post("http://ul29.rapidshare.com", [uri => "/files/7437031/1.txt.html", "dl.start" => "Free"]);

if ($response->is_success) {
    print $response->content;
}
else {
    die $response->status_line;
}