#!/usr/bin/perl -w
use strict;
use File::Find;

my $new;
my $ans;

my $re='~';
my $start='/home/michael';

finddepth(\&wanted, $start);

sub wanted {
	return unless m/$re/;
	print "$File::Find::name\n-->";
	chomp ($new = <>);

	return if (length $new == 0);

	if(($new =~ m|^\.\./|) || ($new =~ m|/|)){
		$ans="?";
		while($ans !~ m/^[y|n]$/i){
			print "move? (y|n): ";
			chomp ($ans =<>);
		}
		return if ($ans =~ /n/);
	}

	if(-e $new){
                $ans="?";
                while($ans !~ m/^[y|n]$/i){
                        print "overwrite? (y|n): ";
                        chomp ($ans =<>);
                }
                return if ($ans =~ /n/);
	}

	rename ($_, $new);
}