in reply to How do I execute UNIX commands from a perl script
$command = "mv /foo/bar ./new/bar"; (system($command) == 0) || warn "$command didn't work!"; [download]