...
       my $url = URI->new_abs($attrs{$a}, $base)
           or warn "Couldn't create URI for $attrs{$s}:$base : $! ", $^E||'';
...