my $LINKS = 'h:\perl scripts\links.txt';