#!/usr/bin/env perl
use utf8;
use Utils;
use strict;
use warnings;

MAIN:
{
	my $x = Utils::stoiWithDefault($ARGV[0], 0);
	print "Start...\n";
	if ($x > 1000) {
		print "Greater than 1000\n";
	} elsif ($x > 100) {
		print "Greater than 100 but less than or equal to 1000\n";
	} else {
		print "Less than or equal to 100\n";
	}
	print "Finish...\n";
}