#!/usr/bin/perl

use File::Find;

find(\&wanted, @ARGV);

sub wanted { 
    my $name = $File::Find::name;
    if ( -f $name ) {
	my $name1 = $name;
	$name1 =~ s/ /\\ /g;
	my $org = `get-original $name1`;
	chop($org);
	return if ($org eq $name);
	$org =~ s/ /\\ /g;
	print  "rm $name1;ditto $org $name1\n";
    } 
}