say "move command: 'mv $ARGV[0] ./r/'";
    system("mv $ARGV[0] ./r/");