#!/usr/bin/perl -w

use strict;

my $num1 = .9999999999999999;
my $num2 = 1;

print "num1 = $num1\n";
print "num2 = $num2\n";

print "The numbers are equal" if $num2 == $num1;
print "The numbers are not equal" if $num2 != $num1;