#!/usr/bin/perl -w

# Note: You also need the file [dloadlist.txt] in the same directory
# containing the list of files you wish to download on separate lines e.g.

# [dloadlist.txt]
# http://www.domain_name.com/file1.htm
# http://www.domain_name.com/file2.htm
# http://www.domain_name.com/file3.htm

#==========================================================================
#####################Variables#####################
$dload_list_file = "dloadlist.txt";
#####################Variables#####################

open(DAT,"$dload_list_file");
@raw_data = <DAT>;
close(DAT);

foreach $line (@raw_data) {
    chop($line);
    ($file_to_dload)=split(/\n/,$line);

    system("lwp-download $file_to_dload"); 
}