#!/bin/perl
# Number range check - age.pl
print "Enter your age: ";
$num = <STDIN>;
if ($num > 18 && $num < 65)  {
print "You are of working age\n";
}  elsif ($num > 65)  {
print "You may have retired\n";
}  elsif ($num < 18  && $num > 4)  {
print "You are probably a student\n";
}  else  {
print "Looking forward to school?\n";
}