#! /usr/bin/perl
 
use Image::Magick;
 
$imagesize = "1680x1050";
 
my $image;
my $output;
 
$destdir = $ENV{HOME}."/Pictures/";
 
$startdir = $ENV{HOME}."/Pictures.original/";
 
opendir (START, $startdir) || die "Couldn't Open Start dir: $startDir";
 
@files = readdir(START);
 
closedir (START);
 
foreach $file (sort @files) {
    next if (($file eq ".") or ($file eq ".."));
    print "$file\n";
    $image = new Image::Magick;
    $err = $image->Set(size=>$imagesize);
    warn "$err" if "$err";
    $err = $image->Read("$startdir/$file");
    warn "$err" if "$err";
    $err = $image->Scale('geometry' => $imagesize);
    warn "$err" if "$err";
    $err = $image->Extent('gravity' => 'center', 'geometry' => $imagesize, 'background' => 'black');
    warn "$err" if "$err";
    $err = $image->Write("$destdir/$file");
    warn "$err" if "$err";
}