use PTE;

$pte = new PTE("./sample.tpl");
%args = ('{$main}'=>1,
	'{$tit}'=>'Test',
	'{$dir_path}'=>'../',
	'{$head}'=>[
		{'{$no}'=>'1',
		'{$dir_path}'=>'../',
		'{$key}'=>'118455472',
		'{$read_def}'=>'50',
		'{$title}'=>'Row 1'},
		{'{$no}'=>'2',
		'{$dir_path}'=>'../',
		'{$key}'=>'121145762',
		'{$read_def}'=>'50',
		'{$title}'=>'Row 2'}
		],
	'{$next}'=>'1');
print $pte->ParseBlock('MAIN',\%args);