open (DATA, $data);
	my @secdata = <DATA>;
	my ($str) = join "",@secdata;
close(DATA);