sub print_response {
    unless ($query->param) {
      print "<b>Results</b>";
      return;
    }
    $ticker = $query->param('ticker');
    $begin_dt = $query->param('begin_dt');
    $end_dt = $query->param('end_dt');
    
    print "<b>FIRST:<br />Ticker: $ticker<br />Start date: $begin_dt<br />End date: $end_dt</b><br /><br />"; 
    
use Net::HTTP;
    
    print "<b>SECOND:<br />Ticker: $ticker<br />Start date: $begin_dt<br />End date: $end_dt</b>"; 
    
my $s = Net::HTTP->new(HOST => "localhost:5000");
    
    print "<b>THIRD:<br />Ticker: $ticker<br />Start date: $begin_dt<br />End date: $end_dt</b>";
    
    $s->write_request(GET => "/Aresult.pl?ticker=$ticker&begin_dt=$begin_dt&end_dt=$end_dt", 'User-Agent' => "Mozilla/5.0");
    ($code,$mess, %h) = $s->read_response_headers;
    while (1) {
      my $buf;
      my $n = $s->read_entity_body($buf,1024);
      last unless $n;
      print $buf;
    }
}