All pastes #411845 Raw Edit

Stuff

public text v1 · immutable
#411845 ·published 2007-03-27 09:56 UTC
rendered paste body
#!/usr/bin/perl -W

use File::Copy;

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