my $dir = "C:\\Users\\rgopikrx\\Desktop\\im";
opendir (DIR, $dir) or die $!;
my @directory  = readdir(DIR) or die "unable to read $dir : $!";
my $index = 1;
foreach my $file (@directory){
	my $im = Image::Magick->new();
	my $rc;	
	my $dc;
	my $new = "$index".".tif";
	next if ($file eq ".");
	next if ($file eq "..");
	next if ($file eq "tt");
	print "Files : $file\n";
	
	print "Tif file : $new\n";
	$rc = $im->Read("$dir\\$file");die $rc if $rc;		
	$dc = $im->Write(filename=>"$dir\\$new");	
	$index++;	
}