sub myrename 
{ my $rename = ( $^O eq 'MSWin32' ) ? 'move -y' : 'mv -i';
  `$rename @_[0,1]`;
  return $!;
}
myrename('abc','def') or die $!;