sub parse_hist	{
    local $/ = undef;
    %sess_hist = %{do($hist_file)};
}