Help for this page
$test = test() ; @test = test() ; print $test == scalar(@test)? "Yepa!\n" : "Nope!\n" ;