$command = "mv /foo/bar ./new/bar";
(system($command) == 0) || warn "$command didn't work!";