if($cgi->http('HTTP_REFERER')){

        print "<p>Testing, there was a referer: ".$cgi->http('HTTP_REFERER')."</p>";

    }else{

        print "<p>Testing, there was <b>no</b> referer</p>";

    }