#!/usr/local/bin/perl
use File::Copy;
use strict 'vars';

open(FILE, "images.txt") or die "Couldn't open file: $!";
my @lines = <FILE>;
close(FILE);

foreach my $line (@lines)
{
	chomp($line);
	move($line,"/data2/da/ds/csl/images/$line");
}
