open( my $FH, '<', 'links.txt' ) or die("ERROR open links.txt ($!)");