sub imgmk {
	my $imgmkpath = "../home/edit/docs/$myfile/$tstamp.$extension";
	my $src = new Image::Magick;
	$src->Read("$imgmkpath"); 
	
	my ($ox,$oy) = $src->Get('width','height');
	my $r = $ox / 300;
	$src->Resize(width=>300,height=>$oy/$r);
	
	$src->Write("../home/edit/docs/$myfile/$tstamp.$extension");
}