#!/usr/bin/perl -w
use strict;
use Carp;


### extend @INC

use lib ( 
    './',
);
use CGI qw(:standard);


use Image::Resize;

for(1..10) {    
    my $image = Image::Resize->new(qq{in$_.jpg});
    
    my $gd = $image->resize(800, 800);
    
    open(FH, qq{>out$_.jpg});
    print FH $gd->jpeg();
    close(FH);
    
    
    my $gd = $image->resize(50, 40, 0);
    
    open(FH, qq{>thumb$_.jpg});
    print FH $gd->jpeg();
    close(FH);
}

print CGI::header();
print "resize: finish";