my $method = $gd_ext{$extension}; my $original = GD::Image->$method($filehandle,1) or die "Can't load original $sourcename: $!"; open(FH, ">".$site->{cfg}{var}{full_content_path}.$site->{cfg}{images}{original_dir}.$sourcename) or die "Cannot open image file $!"; binmode(FH); print FH $original->jpeg(100); close(FH);