Help for this page
$h = $ARGV[0]; $b = $ARGV[1]; system("mv $h $b");
use File::Copy; move($ARGV[0], $ARGV[1]);