#!/usr/bin/perl

use strict;

my $list_of_files="listOfFiles.txt";
open(LIST, $list_of_files) or die $!;

my @all_paths=<LIST>;
my $create_tmp=`mkdir tmp`;



    foreach my $path (@all_paths)
    {
	$path=~m/.*\/(.*)$/;
	print "Downloading $1\n";
	my $execute_wget=`wget $path`;
	my $move_to_tmp=`mv $1 tmp`;
    }


close LIST;
