[- while (($k, $v) = each (%fdat)) { $udat{$k} = $fdat{$k} ; } -] [+ $udat{_session_id} +]