8 lines
176 B
Perl
8 lines
176 B
Perl
#!/usr/bin/perl
|
|
|
|
$input=<>;
|
|
if ($input >= 5 ) {
|
|
print "The input number is equal to or greater than 5 \n";
|
|
} else {
|
|
print "The input number is less than 5 \n";
|
|
} |