#! /usr/bin/perl

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

open INFIL, "temp.txt" or die;

while (<INFIL>) {
#while (<DATA>) {
    my $html = getprint("https://clio.columbia.edu/) or die;
}

exit;

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