use Image::Resize;
use autodie;

$src = "bigimage.jpg";
my $old = Image::Resize->new($src);
my $new = $old->resize(200, 300); # max dimensions

$jpegdata = $new->jpeg(95); # jpeg quality

open OUT, ">./smaller/$src";
print OUT $jpegdata;
close OUT;

See also:

1. installing from CPAN without root
2. Utf8 in web perl application (LAMP) – dbi, mysql
3. Utf8 in web perl application (LAMP) – binmode, charset

• Premature and overcooked red. Resembles licorace, american-oaked toast and lingering prune juice. Drink now through never.
• Fun and focused Rhone. Forcefully bites you with mint julip, putrid fruit punch and lingering spice. Drink now through 2009.
• Premature but morally superior Syrah. Hints of salt, over-oaked juniper and atomic traces of melon. Drink now through graduation.

Greg Sumner created script ( perl source: http://www.gmon.com/tech/sillytng.txt ) that may replace wine tasters and their head-spinning wine notes.

Something more stupid:

• Lean but french-oaked Cabernet Franc. Kicks you with super-glue, understated melted chocolate and bashful whole-wheat bread. Drink now through eternity.
• Markedly improved and whimsical Voignier. Throws out french onion soup, soggy smoked oyster and forward melted chocolate. Drink now through 2005.
• Grossly overweight but equally musty white. Attacks with nectarine, big and plump vanilla and total absence of currant. Drink now through whenever the cows come home.

See it for yourself and play with it

http://www.gmon.com/tech/stng.shtml

http://www.gmon.com/tech/output.shtml

See also:

1. Rocketaware – perl resources
2. Website login with Perl
3. Utf8 in web perl application (LAMP)