open (DATA, "$tmpfile");
	while (my $data = <DATA>) {
		chomp($data);
		$data =~ s/\n+//g; #tr/\x0a\x0d//d; #s/\n//g;
		print "$data\n";