epub to mobi converter

epub-converter.pl

#!/usr/bin/env perl -W
use strict;
use warnings;
use File::Spec;

foreach (<*.epub>) {
    my $epub_file = $_;
    my $mobi_file = $epub_file;
    $mobi_file =~ s/\.epub/\.mobi/;

    print "\n\n*** ";
    print("Converting $epub_file: ");

    convert($epub_file, $mobi_file);
    
    if (-r $mobi_file) {
        print "OK\n";
    }
    else {
        print STDERR "Error";
        exit 10;
    }
}

sub convert {
    my $source = shift;
    my $dest = shift;

    my $parser = "/Applications/calibre.app/".
      "Contents/MacOS/ebook-convert";

    system($parser, $source, $dest);
}