#!/usr/local/bin/perl

require "cgi-lib.pl";

#Get values from form, parse them
&ReadParse (*input);
$knots = $input{'knots'};
$dist = $input{'distance'};

#Do the conversions
$kph = $knots * 1.851997;
$time = $dist/$kph;

$hours = int($time);
$minsec = ($time - $hours) * 60;

$minutes = int($minsec);
$seconds = ($minsec - $minutes) * 60;

#Print out results

print &PrintHeader;
print '<h1>Chopper Calculation<hr></h1>';
print "It will take:<br>";
print "hours:    $hours<br>\n";
print "minutes:  $minutes<br>\n";
print "seconds:  $seconds<br>\n";
print "to travel $dist Km ";
print "at $knots knots.<br>\n";
print &HtmlBot;