Select Code to Download

my $number1_original = $number1;
$number1 =~ s/\..*//;
...
...
print "Content-type: text/html\n\n";
print "$number1_original is equal to $number2_original\n";

print "$number1_original is ",
  ('equal to', 'greater than', 'less than')[ $number1 <=> $number2 ],
  " $number2_original\n";