use strict;
use warnings;
use Image::Info qw(image_info dim);

opendir (FF, 'D:\Logos');
my @image = grep /\.(jpg|gif|png)$/, readdir(FF);
closedir(FF);

open (OUT, ">D:\\Logos\\Dim.txt") ||die ($!);

for (@image){
	
 	my $info = image_info("D:\\Logos\\$_");
 
 	if (my $error = $info->{error}) {
     die "Can't parse image info: $error\n";
 	}
 	my($w, $h) = dim($info);
 	print OUT "$_\t$h\t$w\n";
 
}

close(OUT);