#!/usr/bin/perl-wT

use 5.006;
use strict;
use warnings;

print ("Enter your age,\n");
 my $ age = <STDIN>;
  if ($ age <25){print "too yong!,\n";}
    elsif ($ age <=40){print "can be obtained!!,\n";}
     elsif ($ age >40) {print "too old-yeasts are delayed!!!,\n";}
 #end