#! /usr/freeware/bin/perl -w

open FIND, 'list.txt';

while($line = <FIND>)
{
	chomp $line;
	print "mv $line temp/\n";
	`mv $line temp/`;

}
