if ($session = $cgi->param('session')) {

	$cache = get_cache_handle();
	$data  = $cache->get($session);
	
	print $cgi->header,
				$cgi->start_html(
					-title => 'Extract peptide masses',
					-style => { src => '/stylesheet.css' },
					($data->[0] ? () : (-head => ["<meta http-equiv=refresh content=5>"]))
				); #generate HTML document start

print '<img src="/icons/title_banner.gif">';

print << 'HTML_END' unless $data->[0];
	<h3>
		<p>The system is now getting the required file(s) and extracting the required information.</p>
		<p>Please do not close this browser.</p>
		<p>Links to the result(s) will be displayed when the process is done.</p>
	</h3>

HTML_END

print $cgi->pre($cgi->escapeHTML($data->[1]));
print $cgi->end_html;