opendir( my $dirhandle, $dir ) or die "Can't opendir directory '$dir': $!\n";

rename( "$dir/$name.$old", "$dir/$name.$new" )
  or warn "Problem renaming '$dir/$name.$old' to '$dir/$name.$new': $!\n";