system("mv $from $to");

##</code><code>##

0 == system 'mv', $from, $to or warn "Something wrong: $?\n";