# Childscript # 

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

### resize picture
use Image::Resize;
my $image = Image::Resize->new($dir) or die qq{error while reading: $!};

my $gd = $image->resize(1280, 1024) or die 'error resizing (norm): '.$!;

open my $PIC, qq{>$resized} or die qq{error while pic: $!};
print $PIC $gd->jpeg();
close $PIC;

exit;