Select Code to Download

http://xml.pangora.com/scripts/Redirect.php?fid=45&mid=1066&serviceNam
+e=idealo-de&serviceType=portal&oid=1066de515358&sid=73&pt=idealo-de.e
+xport.1-0&url=http%3A%2F%2Fwww.baur.de%2Fis-bin%2FINTERSHOP.enfinity%
+2FWFS%2FBaur-BaurDe-Site%2Fde_DE%2F-%2FEUR%2FBV_ExternalCall-Start%3F
+ArticleNo%3D515358%26NUMSArt%3D4443504%26NUMSArtPc%3D4488615%26Affili
+ateID%3Dpangora-%2A%26Name%3Dpangora-produktdaten-baur%26ActionID%3Dp
+reis-produkt-suche-baur%26WKZ%3D79%26IWL%3D101

use strict;
use warnings;
...
print "url: $url\n";
print "html: $html\n";
print "ok" if $html =~ $price;

use strict;
use warnings;
...
    $links = $mech->links;
    my $redirect_url = $links->[0]->base->as_string;
}