...$copy = $myimage->clone;
$myimage -> copyMerge($copy,100,100,100,100,100,100,100);
					open(PICTURE, ">$GraphTempDir/$GeneName.png") or die("Cannot open file for writing");
					binmode PICTURE;
					print PICTURE $myimage->png;
					print "[<a href=../stavros/$ArrayFile[6]/$GeneName.png  TARGET=new>$GeneName</a>]";
					close PICTURE;