my $uri = $mech->uri;
my( $server ) = $url =~ m[(^http://[^/]+)/];
...
my $pdfurl = $server . $link;