#! /usr/bin/perl -w

use HTML::Template;
#use CGI;

#$our $query = new CGI;
our $template = HTML::Template->new(
	filename => 'results.tmpl',
	loop_context_vars => 1,
	#associate => $query,
);
our $test_array =
	[
		{catalog_number => 'AB19026', product_name => 'ADAM 10 [Kuzbanian; Kuz; MADM] , C-terminus', host => 'Rabbit', format => 'Pur', quantity => '100µg'},
		{catalog_number => 'AB19133', product_name => 'ADAM 12, Prodomain', host => 'Rabbit', format => 'APur', quantity => '100µg'}
	];
$template->param(results => $test_array);
print $template->output();