$file2 = 'Source.txt' ;      # Name the file with source addresses
open(INFO, "<$file2" ) ;     # Open the file