#!/usr/bin/perl -w
print "Enter a number: ";
$num1 = <>;
print "Enter another, different number: ";
$num2 = <>;

if ($num1 == $num2) {
    die ("Please enter two different numbers.\n");
    }
if ($num1 > $num2) {
    print "The first number is greater than the second number.\n";
    }
else {
    print "The first number is less than the second number.\n";
    }