#!/usr/bin/perl

use CGI qw/:standard/;
use Image::Magick;

print header,
    start_html('file upload'),
    h1('file upload');
print_form()    unless param;
print_results() if param;
print end_html;

sub print_form {
    print start_multipart_form(),
       filefield(-name=>'upload',-size=>60),br,
       submit(-label=>'Upload File'),
       end_form;
}

sub print_results {

	my $length;
	my $file = param('upload');
	if (!$file) {
		print "No file uploaded.";
		return;
	}
        
	open FILE, "> ../new.jpg" or die $!;
	while (<$file>) {
		print FILE $_;
	}	
	close FILE;

	my $src = Image::Magick->new;
	$src->Read('../new.jpg'); 
#	my ($ox,$oy) = $src->Get('width','height');
#	my $r = $ox / 300;
#	$src->Resize(width=>300,height=>$oy/$r);
	$src->Annotate(text=>'Test Magick', y =>30 );
	$src->Write('../new.jpg');


}