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