use strict;
use warnings;

my $num = shift;

if ($num < 0) {
    print "under 0";
}
elsif ($num < 3) {
    print "under 3";
}
else {
    print "other";
}