view release on metacpan or  search on metacpan

demos/portrait.pl  view on Meta::CPAN

#!/usr/bin/perl -w

use lib '../lib';
use strict;
use Image::Caa;
use Image::Magick;
use Term::ReadKey;


#
# load the image
#

my $image = Image::Magick->new;

my $x = $image->Read('portrait.jpg');

warn "$x" if "$x";


#
# get screen size
#

my ($sw, $sh) = GetTerminalSize;


#
# create the caa
#

my $caa = new Image::Caa();
$caa->draw_bitmap(0, 0, $sw-2, $sh-5, $image);

print "Photo by Diana Castillo\n";
print "http://flickr.com/photos/hipocondriaca/117637925/\n";