Select Code to Download

$agent->get($url);
$agent->form_number(1);
...
$agent->content =~ m/\'\/goto\/(.*)\'/;
print "Der Link: $1\n\n";
$agent->get( $1);

Der Link: http://www.library.ethz.ch:80/search/action/login.do?afterPD
+S=true&vid=DADS&vid=DADS&dscnt=1&targetURL=http%3A%2F%2Fwww.library.e
+thz.ch%2Fsearch%2Faction%2Fsearch.do%3Fdscnt%3D0&frbg=&tab=default%5F
+tab&dstmp=1356212616435&srt=rank&ct=search&mode=Basic&dum=true&indx=1
+&vl%28freeText0%29=Ajax&cmslang=ger-DE&fn=go&pds_handle=GUEST

Error GETing http://www.library.ethz.ch/search/action/http%3A%2F%2Fwww
+.library.ethz.ch%2Fsearch%2Faction%2Fsearch.do%3Fdscnt%3D0dscnt=2&frb
+g=&tab=default%255Ftab&dstmp=1356212617376&srt=rank&ct=search&mode=Ba
+sic&dum=true&indx=1&vl%28freeText0%29=Ajax&fn=go&vid=DADS&cmslang=ger
+-DE&fromLogin=true&fromLogin=true: Not Found at mech_auto.pl line 24

http://www.library.ethz.ch/search/action/search.do?&dscnt=1&frbg=&tab=
+default_tab&dstmp=1356213423770&srt=rank&ct=search&mode=Basic&dum=tru
+e&indx=1&fromLogin=true&vl(freeText0)=Ajax&vid=DADS&fn=search&cmslang
+=ger-DE