sub print_response {
    unless ($query->param) {
      print "<b>No data has been submitted</b>";
      return;
    }
    $vdate = $query->param('vdate');
    $edate = $query->param('edate');
    $ot = $query->param('ot');
    $ul = $query->param('underlying');
    $strike = $query->param('strike');
    $dy = $query->param('dividendyield');
    $rfr = $query->param('riskfreerate');
    $vol = $query->param('volatility');
use Net::HTTP;
my $s = Net::HTTP->new(Host => "localhost:5000");
#my $s = Net::HTTP->new(Host => "192.168.2.104:5000");
$s->write_request(GET => "/calc.pl?&vdate=$vdate&edate=$edate&optiontype=$ot&underlying=$ul&strike=$strike&dividendyield=$dy&riskfreerate=$rfr&vol=$vol", 
		      'User-Agent' => "Mozilla/5.0");
my ($code,$mess, %h) = $s->read_response_headers;

while (1) {
  my $buf;
  my $n = $s->read_entity_body($buf,1024);
  last unless $n;
  print $buf;
}
}