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