rename( $old, $new ) || die $!;

##</code><code>##

! -e $new && rename( $old, $new) || die $!