#!/usr/bin/perl

use WWW::Mechanize;

$uname = 'Loginname';
$pword = 'Passwort';
$file = 'C:\Dokumente und Einstellungen\Benutzername\Desktop\1.rar';

$mech = WWW::Mechanize->new();
$mech->get('https://ssl.rapidshare.com/cgi-bin/collectorszone.cgi') || print "Rapidshare nicht erreichbar!\n";
                                $check += $mech->success();
$mech->form_number(1);
                                $check += $mech->success();
$mech->field('username', $uname);
                $check += $mech->success();
$mech->field('password', $pword);
                $check += $mech->success();
$mech->click();
                    $check += $mech->success();

if($check == 5){print "Ok\n";}
else{print "Fehler!\n";}


$mech->form_name('ul');
                                $check += $mech->success();
$mech->field('filecontent', $file);
                $check += $mech->success();
$mech->click();
                                $check += $mech->success();

if($check == 8){print "Ok\n";}
else{print "Fehler!\n";}