Select Code to Download

    %file2 = 'Source.txt' ;
    open(INFO, "<%file2" ) ;

    open(INFO, '<Source.txt');

    my %table;
    open(IN, '<Source.txt') or die;
...
        my($ip, $country) = split(' ', $_, 2);
        $table{$ip} = $country;
    }

    open(OUT, '>>conversion.txt') or die;
    foreach $line1 (@lines1) {
...
        }
    }
    close OUT;