#!/usr/bin/perl -w

use warnings;
use strict;
use WWW::Search;

my $www_search = new WWW::Search('NCBI::PubMed');

#$ENV{http_proxy} = 'http://my.proxy.de:80';    # falls ihr euren Proxy nicht in den Umgebungsvariabeln definiert habt braucht ihr diese Zeile
#$ENV{http_proxy_user} = 'bugsbun';             # hier müsst ihr euren Username für den Proxy eintragen, falls er einen benötigt
#$ENV{http_proxy_pwd } = 'c4rr0t5';             # hier müsst ihr euer Passwort für den Proxy eintragen, falls er eins benötgt

$www_search->env_proxy('yes');                  # hier wird der Proxy eingeschaltet

#$www_search->env_proxy(0);                     # mit diesem Befehl wird der Proxy wieder ausgeschaltet

if ($www_search->env_proxy) {                   # eine Möglichkeit um die Proxyverbindung zu testen

    $www_search->maximum_to_retrieve( 10 );
    $www_search->native_query( my $query_pubmed = 'egf [ALL]' );
    while ( my $r = $www_search->next_result ) {
    print "$_\n" for ( $r->url, $r->title, $r->description );
    }
}
else {
    print "can not connect to proxy!\n
}