а вот картинки можно проще
-----------------------
#!/usr/bin/perl -w

my $i = 0;

my @cmds = qw[ djvm -c output.djvu ];
foreach  ( <*.*> ) {
    if (/(.*)\.jpg$/ ){
        print "$_\n";
        # system("c44", '-crcbfull', $1.'.jpg', $1.'.djvu');
        system("cpaldjvu", $1.'.jpg', $1.'.djvu');
        $i++;
        push @cmds, $1.'.djvu';
    }
    elsif (/(.*)\.tif$/ ) {
        print "$_\n";
        # установить 300 dpi в tiff'e
        #system("tiffset", '-s 296 2', $1.'tiff');
        #system("tiffset", '-s 282 300.0', $1.'tiff');
        #system("tiffset", '-s 283 300.0', $1.'tiff');
        # или
        # system("cjb2", '-dpi', '300', '-losslevel', '100', $1.'.tiff', $1.'.djvu');
        system("cjb2", $1.'.tif', $1.'.djvu');
        $i++;
        push @cmds, $1.'.djvu';
    }
}
print "$i files renamed\n";
system(@cmds);
print "\n$cmds[2] created";
---------------------------
и всё. Ради этого отдельную статью писать не стоит

mkdir 'pics';
my @cmd = qw[ djvmcvt -i input.djvu pics index.djvu ];
system (@cmd);

foreach ( <pics/*.djvu> ) {
    m/(.*)\.djvu$/;
    if ( $1 ne 'index' ) {
        system("ddjvu", '-format=tif', $_, $1.'.tiff');
        unlink $_;
    }
}
-------------------
аналогично можно разобрать на jpeg'и, если оригинал цветной