Imagenperl1

#!/usr/bin/env perl
#
## Script para ver las dimensiones de una imagen
## Programación: Ejemplo para Tiempo de Tux
## Por : demianx864
## Eres libre de modificar y añadir lo que quieras al script
## Gracias al modulo Image::Size
## Para mas información visita y comenta <http://www.itimetux.com>

use strict;
use Image::Size;
system("clear");

print "Ruta de la imagen :";
my $imagen = <STDIN>;

chop($imagen);

my ($ancho, $alto) = imgsize($imagen);

print "Tu imagen $imagen es de :\n";
print "Ancho: $ancho x Alto: $alto\n";
exit(1);