$image_file = Image::Magick -> new();
$result = $image_file -> Read($_[0]);
($mark_width, $mark_height, $mark_size, $mark_fmt) = $image_file -> Ping($_[0]);
if ( ($mark_height >= $mark_width) and ( $mark_height > 300) ){
	$mark_width = sprintf("%.0f", ( ($mark_width * 300)/$mark_height ) ) ;
	$mark_height=300;
}
$result = $image_file -> Scale(width=>$mark_width, height=> $mark_height);
$result = $image_file -> Write("../new_file/$_[0]");