How to speed up image resizing in perl?

Question

Perl

There is a perl script that doubles the size of images in a folder. Now I'm using the ImageMagick module. Pictures sized 1024x768 are rotated for 8 seconds. With a large number of files, this is very long. Is there a way to speed this up?

my ($w, $h) = imgsize($filename);
my $img = new Image::Magick;
my $r = $img->Read($filename); # 0.5 сек
my ($w2, $h2) = ($w * 2, $h * 2);
$r = $img->Resize(width => $w2, height => $h2, filter => 'Lanczos'); # 5 сек
$img->Write($new_filename); # 2.5 сек

Answer 1

Try experimenting with MAGICK_THREAD_LIMIT;
For example:
BEGIN { $ENV{MAGICK_THREAD_LIMIT} = 2; }

Answer 2

Try image scaling with epeg library binding :
perl-users.jp/articles/advent-calendar/2010/english/22