use constant LINKS => 'h:\perl scripts\links.txt';