#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use File::Copy;
use CGI::Carp 'fatalsToBrowser';

my $q     = CGI->new;
my $photo = $q->param("pic");

if ($photo){
  my ($ext) = $photo =~ /([^.]+)$/;
  my $copydir = '/full/path/to/web/img/';
  my $image = Image::Resize->new($photo);
  my $gd = $image->resize(100, 100);
  my $newfile = $copydir."011190.$ext";
  my $upload_fh = $q->upload("pic");
  
  open OUTFILE,'>',$newfile or die "$!";
  print OUTFILE $gd->jpeg();
  binmode OUTFILE;
  while (<$upload_fh>){ 
    print OUTFILE;
  }
  close OUTFILE;
}


print << "HTM";
<h2>File upload</h2>
<form method="post" action="" enctype="multipart/form-data">
Filename: <input type="file" name="pic"/><br/><br/>
<input type="submit"/>
</form>
HTM