sub {
    my $u = URI->new( $_[0] );
    return sprintf( '<a href="%s">%s%s</a>', $u, $u->host, $u->path );
}