use strict;
use warnings;

use LWP::UserAgent;
use HTML::Form;

my $ua = LWP::UserAgent->new;
my $resp = $ua->get("http://ul29.rapidshare.com");
if( $resp->is_success ) {
   my $f = HTML::Form->new( $resp->decoded_content( raise_error => 1 ), $resp->base );
   $resp = $ua->request( $f->click );
   if ($resp->is_success) {
      print $resp->content;
   }
   else {
      die $resp->status_line;
   }
}