open(SF, $o_statusfile);

    my %delete_params;
    local $/ = "\n\n";
    while (<SF>)
    {
        if (/^servicestatus/)
        {
		if (/service_description = (.*)/) {
			print("$1\n");
		}
        }
    }   

close SF;