Select Code to Download

sub myrename 
{ my $rename = ( $^O eq 'MSWin32' ) ? 'move -y' : 'mv -i';
...
  return $!;
}
myrename('abc','def') or die $!;