#!/usr/bin/perl
use strict;
use CGI;
use CGI::Carp 'fatalsToBrowser'; # remove after testing

my $q = CGI->new;
print $q->header(-nph=>1);
my $style = get_style();
print $q->start_html(
  -title => "XREF",
  -style => {-code => $style},
);
print $q->h1 ("ACTIV INSTRUMENT TABLE DATA"),
$q->pre('Table Here'),$q->end_html();


sub get_style {
  return 'body { color:red };';
}