#!/bin/perl

# V 0.1.0 050509 rmdoub.pl
# 	 
# Licensed under GPL2
#
#  в  в
#  в в
#  в     вв  в  в  вв   вв     вв   вв   вв
#  в в  в  в в  в в  в в  в   в  в в  в в  в
#  в  в в     вв  в  в  ввв в  вв  в     ввв
#                         в                в
#        martin         вв     krung     вв
#
# ++++++++++++++++++++++++++++++++++++++++++++++++

use strict;

my %md5sum;
my $muster;

$muster=$ARGV[0];
printl($muster);


while(<*>){
	my $filename = $_;
	
	my $com = "md5sum ". $filename;
	
	my $md5 = docom($com);
	$md5 = substr($md5,0,32);
	printl($md5);
	
	if ($md5sum{$md5} eq ""){
		$md5sum{$md5} =  $filename;
	} else {
	$com = "rm $filename";
	docom($com);
	printl($com);
	}
}

#exit;

sub docom(){
	my $com=$_[0];
	#printl($com);
	my $output=`$com`;
	return($output);
}

sub printl(){
	my $out=$_[0];
	print $out."\n";
}