sub supertest
{
	my $s1= shift;
	if (substr($s1,1,1) ne chr(0))
	{
		return $s1;
	}else{
		return shift;
	}
}