#!/bin/perl
##################################################
# Demonstrate Basic Scalar Operators
##################################################
#use strict;
#use warnings;

##################################################
# Variable Declarations
##################################################
my $input0;    # Scalar variable for input string
my $input1;    # Scalar variable for input string

##################################################
# The MAIN part of the program
##################################################

print "Enter first scalar value: ";
$input0 = <STDIN>;         # Get one line of input
chomp($input0);            # Remove the newline/CR 

print "Enter second scalar value: ";
$input1 = <STDIN>;         # Get one line of input
chomp($input1);            # Remove the newline/CR 

print "Logical ARITHMETIC operators\n";
print "$input0 == $input1 is: ", $input0 == $input1, "\n";
print "$input0 != $input1 is: ", $input0 != $input1, "\n";
print "$input0 <  $input1 is: ", $input0 <  $input1, "\n";
print "$input0 >  $input1 is: ", $input0 >  $input1, "\n";
print "$input0 <= $input1 is: ", $input0 <= $input1, "\n";
print "$input0 >= $input1 is: ", $input0 >= $input1, "\n";

print "\nLogical STRING operators\n";

print "$input0 eq $input1 is: ", $input0 eq $input1, "\n";
print "$input0 ne $input1 is: ", $input0 ne $input1, "\n";
print "$input0 lt $input1 is: ", $input0 lt $input1, "\n";
print "$input0 gt $input1 is: ", $input0 gt $input1, "\n";
print "$input0 le $input1 is: ", $input0 le $input1, "\n";
print "$input0 ge $input1 is: ", $input0 ge $input1, "\n";

exit;                    # End program