#!/usr/bin/perl -dw

mkdir(".save",0755);
chomp(@files = `ls`);
for $f (@files)  {
	next if $f =~ /^\./;
	next if -d $f;
	($dev,$ino,$mode,$nlink) = stat($f);
	if ($d = $devino{$dev,$ino}) {
		system "ls -l $d $f";
		print "Save $f\n";
		system "mv $f .save/$f";
	} else {
		$devino{$dev,$ino} = $f;
	}
}