use strict;
use warnings;

use GD;

#UPDATE: need the following line to have a real 'smooth' resampling
GD::Image->trueColor(1);

my $file = $ARGV[0];
die "Please feed a jpg file.." unless -e $file;

my $orig_gd = GD::Image->new($file);

my $photo_ratio = 0.3;

my $small_w = int($orig_gd->width  * $photo_ratio);
my $small_h = int($orig_gd->height * $photo_ratio);

draw_photo ($file);

################################################################################
sub draw_photo {
  my $file_path = shift;
  # create the resized but still empty GD image
  my $resized = GD::Image->new($small_w,$small_h);
  # copy from source into resized on
     $resized->copyResampled($orig_gd,0,0,0,0,
              $small_w,
              $small_h,
              $orig_gd->width,
              $orig_gd->height);

  # save
  open my $out, '>', time.'.jpg' or die "unable to open for write";
  binmode $out;
  print $out $resized->jpeg or die "unable to write jpg data!";
  close $out;
}