#! /usr/bin/perl

use strict;
use warnings;
use LWP::Simple;

open my $inf, "<", "temp.txt" or die; #This line no longer generates a warning.

while (<$inf>) {
#while (<DATA>) {
    my $html = getprint("https://clio.columbia.edu/catalog?q=How%20to%20conduct%20your%20own%20survey%20&search_field=title_starts_with&f%5B-format%5D%5B%5D=Online&commit=Search") or die;
}

exit;

__DATA__
How to conduct your own survey / Priscilla Salant and Don A. Dillman.