sub test2{

	return "HTML";

}


sub test {

	return join '', test2("1", "$ENV{'HTTP_HOSTS'} ");

}

print test();

##</code><code>##

C:\WINDOWS\system32\cmd.exe /c sh
$ perl -w test.PL
Use of uninitialized value in concatenation (.) or string at test.PL line 11.
HTML$