#!/usr/bin/perl


use LWP::Simple; 
use HTTP::Request::Common;




print "\n";
my $filename = ('Random addresses.txt');

my $txtContent = "";
open(IN, '<', $filename);
while(my $line = <IN>){
    $txtContent    .= $line;
}
close(IN);




my @address =split (m/\r+$/, $txtContent);

my $val = 0;
foreach($val(@address)){
print $val . "\n";
print "end Val\n";
}