open (DATA,"$resolution");
	@data = <DATA>;
	close(DATA);

	$data = "@data";

	$data=~ m/.*&$FORM{'res'}\n/i;

	($count, $res) = split(/&/, $&);

	@add = grep{ !(/.*&$res\n/i) } @data;


	$count++;
	push(@add, "$count&$res\n");

	open (DATA,">$resolution");
	print DATA @add;
	close(DATA);