$ENV{ 'HTTP_PROXY' } = 'http://81.29.249.17:3128';
$ENV{ 'FTP_PROXY' } = 'http://81.29.249.17:3128';
$mech = WWW::Mechanize->new();
$mech->{proxy} = {};
$mech->proxy(['http', 'ftp'], 'http://81.29.249.17:3128');

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

$mech->click_button( name => 'dl.start', value => 'Free');

$mech->form_with_fields( @fields )

$mech->form_with_fields( 'dl.start' );
$mech->click_button( name => 'dl.start', value => 'Free');

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

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

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

$mech->proxy(['http', 'ftp'], 'http://proxy.chello.at:8080/') or die();

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

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

my $content = $mech->content;

if ( $content =~ /\(\w+\s\w+\s(.*)\s\w+\)/i ) {
        print "warte $1 Minute(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."
}
elsif ( $content =~ /Du musst warten, bis der Download fertig ist./i ) {
        print "Du musst warten, bis der Download fertig ist."
}
else { print "Unknown error"; }
        

500 Can't connect to proxy.chello.at:8080 (Bad hostname 'proxy.chello.at')
Unknown error