$link =~ s/\?.*$//;
$visited{ $link } = '';