#!/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"; }