Script to send books from a directory to kindle e-mail

send_books.pl

#!/usr/bin/env perl
use Cwd 'abs_path';
use File::Basename;
use strict;
use warnings;

my $to = '[email protected]';
my $path = abs_path($0);
my $mutt_cfg = dirname($path) . "/robot.muttrc";

for my $file (glob("~/Dropbox/tokindle/*")) {
    my $subj = basename $file;
    my $body = 'The book is in attachment';
    system "echo '$body' | mutt -F '$mutt_cfg' -a '$file' -s '$subj' -- $to";
    $? == 0 or die "Could not send file";
    unlink $file;
}