Создание кэша

У меня для индекса.пхп подгружается компонент.
Реально ли реализовать кэш для компонента?
Если да то буду немерно признателен  примерному коду.
у меня следующий уомпонент:



//компонент
// Выбирает категории в инфоблоке
function ShowChildSection($iblock) {
$arFilter = Array('IBLOCK_ID'=>$iblock,'DEPTH_LEVEL'=>1);
$db_list = CIBlockSection::GetList(Array("SORT"=>"ASC"), $arFilter, true);
while($ar_result = $db_list->GetNext()) {
?>| <?=$ar_result['NAME']?> <?
}
}

$iblock = ChekIblockIdOnCode('notebook_chars');

$res = CIBlock::GetList(Array("SORT"=>"ASC"),Array('TYPE'=>'xml_catalog',"ACTIVE"=>"Y"), true);
$i=0;

# Массив соответствий фоток инфоблокам
$images['notebook_chars'] = '04.jpg';
$images['Printers_catalog'] = '20.jpg';
$images['MFU_Copirs'] = '60.jpg';
$images['Photo_video'] = '09.jpg';
$images['Computers_chars'] = '01.jpg';
$images['Monitors_chars'] = '03.jpg';
$images['Tele_video_game'] = '08.jpg';
$images['Scaners_chars'] = '10.jpg';
$images['Proectors_chars'] = '06.jpg';
$images['UPS_chars'] = '30.jpg';
$images['LAN'] = '80.jpg';
$images['Communicator_chars'] = '4363.jpg';
$images['Flash_usb'] = '9A.jpg';
$images['Account_materials'] = '65.jpg';

while($ar_res = $res->Fetch())
{
if($ar_res['CODE']!='NEW_GOODS' && $ar_res['CODE']!='Special_Offers') {
$iblock = $ar_res['ID'];
//print_a($ar_res);
if($i==0){
?>

   

<?
$i++;
}else {
?>  

" width="60" height="60" border="0" hspace="5" vspace="15">

<h1><?=ChekCodeIblockOnId($iblock,5)?></h1>                      <?ShowChildSection($iblock);?>

" width="60" height="60" border="0" hspace="5" vspace="15">

<h1><?=ChekCodeIblockOnId($iblock,5)?></h1>            <?ShowChildSection($iblock);?>

<?
$i=0;
}
}
}

if($i==1)
{
?>