print $q->header,start_html, $sr->{action}, $sr->{time};
# etc.