#!/usr/bin/perl
use CGI::Carp qw/fatalsToBrowser/;
$number1 = '$64,200';
$number2 = '$64,200.00';


$number1 =~ s/\..*//;
$number2 =~ s/\..*//;
$number1 =~ tr/$,//d;
$number2 =~ tr/$,//d;

if ($number1 > $number2)
         {
         print "Content-type: text/html\n\n";
         print "$number1 is greater than $number2\n";
         }

elsif ($number1 < $number2)
         {
         print "Content-type: text/html\n\n";
         print "$number1 is less than $number2\n";
         }

elsif ($number1 == $number2)
         {
         print "Content-type: text/html\n\n";
         print "$number1 is equal to $number2\n";
         }