if ($chart_name ne "") {
my ($Bytes, $Buffer);


	open OUTPUT, ">", $chart_f or die "Can't open: $!";
	binmode OUTPUT; #binmode since I'm on Windows
		  while ($Bytes = read($fh, $Buffer,1024)) {
 			   print OUTPUT $Buffer;
		  }

	close OUTPUT or die "Can't close: $!";

use Image::Magick;
my $image = Image::Magick->new;
my $x = $image->Read($chart_f);

  $x = $image->Thumbnail(width=>240, height=>153);
  warn "$x" if "$x";

  $x = $image->Write($chart_thumb);
  warn "$x" if "$x";

}