#!/usr/bin/perl

    use strict;
    use warnings;

    use LWP::Simple;

while (<>) {
    my ($filename, $url) = split;
    print "Downloading $url...\n";
    LWP::Simple::getstore($url, $filename);
}