#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;

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

$ua->proxy(['http', 'ftp'], 'http://127.0.0.1:8118/');

my $url = 'http://rs208.rapidshare.com/files/47486343/PowerOptions.pdf';

my $request = HTTP::Request->new('GET', $url);

my $response = $ua->request($request);

my $content;
if ( $response->is_error() ) { 
	print "Error-Code    : ", $response->code() ,    "\n";
    print "Fehlermeldung:  ", $response->message() , "\n";
}
else {
	$content = $response->content();
}

if ( $content =~ /\(\w+\s\w+\s(.*)\s\w+\)/i ) {
	print "Oder warte $1 Minuten.";
}

elsif ( $content =~ /Kein Premium-User/i ) {
	print "Kein Premium-User\n";
}