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

##</code><code>##

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