my ($filename, $x, $y, $min, $max) = @_;