use strict;
use GD;
my $img = GD::Image->newFromJpeg("/home/ned/Champagne.jpg");