#!/usr/bin/perl
#These are the variables to be read in
my $number1 = '2011';
my $number2 = '2011';
my $selectioncriterium = '==';

#This is the algorithm
if  ($selectioncriterium eq '<')
	{
		if ($number1 < $number2)
			{
				print "$number1 is smaller than $number2\n";
			}
		elsif ($number2 < $number1)
			{
				print "$number2 is smaller than $number1\n";
			}
	}
	elsif ($selectioncriterium eq '==')
		{
			if ($number1 == $number2)
				{			
					print "$number1 is equal to $number2\n";
				}
				else
					{
						print "$number1 is not equal to $number2\n";
					}
		}