use HTTP::Request::Common;
use LWP::UserAgent;

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

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

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