[-
if(!$udat{'user'})
{$http_headers_out{'Location'}="./noticias.php";}
-]

[- 
    for $key (keys %udat)
    {    delete($udat{$key}) unless $key =~ /^_/;}
	
	$http_headers_out{'Location'}="./noticias.php";
-]