1#! /usr/bin/perl -w
2
3use strict;
4use CGI;
5
6my $q = new CGI;
7
8print $q->header();
9
10if ( defined $q->param('submit') or defined $q->param('Centigrade') or defined $q->param('Kelvin')) {
11  my $result = "";
12  if ( defined $q->param('Centigrade') and $q->param('Centigrade') ne "") {
13    $result = $q->param('Centigrade') + 273.15;
14  } elsif ( defined $q->param('Kelvin') and $q->param('Kelvin') ne "" ) {
15    $result = $q->param('Kelvin') - 273.15;
16  }
17  print $result;
18} else {
19  print &Show_Form();
20  print &Show_Footer();
21}
22
23sub Show_Form {
24  my $html = "";
25  $html .= <<EOT;
26<HTML>
27  <HEAD><title>Temperature Conversion</title>
28</HEAD>
29<BODY>
30  <form>
31  Temperature =<br>
32  <input type="text" name="Centigrade" size="10"> degrees C<br>
33  <input type="text" name="Kelvin" size="10"> degrees K<br>
34  <input type="submit" name="submit" value="Convert">
35  <input type="reset"><br>
36  </form>
37EOT
38
39  return $html;
40}
41
42sub Show_Footer {
43  print "</body></html>\n";
44  return;
45}
46