move($orig, $dest || die "...");