#!/usr/bin/perl -w

use strict;
use warnings;
use Cwd;

use File::Find;
use File::Basename;

find (\&eBookLooker,cwd);

sub eBookLooker {
	my $file = $File::Find::name;
    my @suffix = ('.mobi','.MOBI','.Mobi');
   

		return unless -f $file;

	if($file=~ /.mobi$/i){
        my $bName = basename($file, @suffix);
        my $dName = dirname($file);
    
        print "Rename $file $dName/$bName.prc\n";
		if(-e "$dName/$bName.prc"){
			print "Exists: $dName/$bName.mobi file already exists\n"
		}else{
    		rename($file,"$dName/$bName.prc");
		}
	}
}
