#!/usr/bin/perl
use strict;
use warnings;
use Image::Magick;

my $img = Image::Magick->new();
$img->Read($_) for (glob('dir/*.jpeg'));
$img->Set(delay => 10);
$img->Set(quality => 95);
$img->Write('movie.mpeg');