Get image orientation in Perl using Image::Magick

image-orientation.pl

use Image::Magick;

sub get_image_orientation {
  my $file = shift;

  my $image = Image::Magick->new;
  $image->Read($file);
  my $w = $image->Get('width');
  my $h = $image->Get('height');

  return $w/$h > 1 ? 'horizontal' : 'vertical';
}