#!/usr/bin/perl
use warnings;
use strict;


for my $file (glob '*.mobi *.prc *.epub') {
    my ($ext) = $file =~ /\.(.*)/;
    if ($ext =~ /mobi|prc/i) {
        my $status = system qw{ kindletool.exe strip_source }, $file;
        warn "Failure $status: $file" if $status;

    } elsif (lc $ext eq 'epub') {
        (my $newname = $file) =~ s/\.epub$/.zip/;
        rename $file, $newname or warn "Failure $!: $file";
    }
}