#!/usr/bin/perl -wT
use CGI':standard';
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
my $x;
my $y;
my $z;
$x = 10;
$y = "Oklahoma";
$z = $x * 3;
#start html output here
print "Content-type: text/html\n\n";
print "<!DOCTYPE html>";
print "<html><head><title>Operators</title></head>";
print "<body>";
print "<div>$z</div>";
print "<div>" . sqrt(2) . "</div>";
print "<div>" . 2**3 . "</div>";
if ($x > 5) {print "<div>x is larger than 5</div>";}
print "<div>" . "Tulsa, " . $y . "</div>";
print "</body></html>";
