use LWP::Simple;

# get file into variable
my $data = get('http://www.jaywil.com/libsearch/SAMPLE.TXT');

# print all at once
print $data;

# or break up and print line by line
 # update: to keep blank lines at eof see comment by ikegami below 
@lines = split(/\n/, $data);
for (@lines){
    print "$_\n";
}