sub LINKS { return 'h:\perl scripts\links.txt'; }