#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

open (FILE, "<ok.txt") or die $!;
while (my $proxy = <FILE>) {

    my $mech = WWW::Mechanize->new;

    #$mech->timeout(10);

    $mech->add_header( 'accept-language' => 'de') or die();

    $mech->proxy(['http', 'ftp'], "http://$proxy/") or die();

	print "Trying to retreive URL trough proxy $proxy\n";

    $mech->get("http://www.rapidshare.com/files/47486343/PowerOptions.pdf") or die();

    #warn $mech->content;

    $mech->click_button( number => '2' ) die ();

    print "Button geklickt\n";

    my $content = $mech->content;

    if ( $content =~ /\(\w+\s\w+\s(.*)\s\w+\)/i ) {
        print "warte $1 Minuten.\n";
    }
    elsif ( $content =~ /Kein Premium-User/i ) {
        print "Kein Premium-User.\n";
    }
    elsif ( $content =~ /Zu viele Benutzer laden gerade Dateien runter./i ) {
        print "Zu viele Benutzer laden gerade Dateien runter.\n";
    }
    elsif ( $content =~ /Du musst warten, bis der Download fertig ist./i ) {
        print "Du musst warten, bis der Download fertig ist.\n";
    }
    else { print "Unknown error"; }
}