sub check_link {

##</code><code>##

foreach $link(@links) {