#!/usr/bin/perl -W

use File::Copy;

while(<STDIN>)
{
	chomp $_;
	$newpath = "$ARGV[0]/" . "$_";
	move($_, $newpath);
	print "$_ -> $newpath\n";
}