{
    local $/;
    undef $/;
    (undef, @temp) = split /;/, <DATA>; # slurp file
    %sections = map { my($sect, @param) = split /[\n\r\f]+/;($sect, \@param) } @temp;
}