やっぱり

$href = ($ENV{QUERY_STRING} =~ /^referer=(.+)$/) || $ENV{HTTP_REFERER};

の方がクールかな?

JavaScriptがない場合のnoscriptが入るのがいやならその処理も足せばいいが。
それくらいはできるっしょ?