<xmp>UNKNOWN
    =**************************************
    = Name: Year Level Checker
    = Description:A simple year level checker that I wrote in Perl im just a beginner learning Perl in my spare time. If you like my work please send me an email at jakerpomperada@yahoo.com. My facebook and yahoo messenger address is jakerpomperada@yahoo.com. My skype address is jakerpomperada. I am also accepting customized programming work at a very affordable fee just send me an email on above address. People here in the Philippines who wish to contact me through my mobile phone numbers 09993969756 and 09154628025. My telephone number at home is +63 (034) 4335081. Thank you very much and Happy programming. Regards, Mr. Jake Rodriguez Pomperada,MAED-IT Freelance Programmer / Web Developer / IT Instructor
    = By: Jake Rodriguez Pomperada
    =
    =
    = Inputs:None
    =
    = Returns:None
    =
    =Assumes:None
    =
    =Side Effects:None
    =This code is copyrighted and has limited warranties.
    =Please see http://www.Planet-Source-Code.com/xq/ASP/txtCodeId.814/lngWId.6/qx/vb/scripts/ShowCode.htm
    =for details.
    =**************************************
    
    #!/usr/bin/perl
    print "\t Year Level Checker";
    print "\n\n";
    print "Enter Your Name: ";
    $student = <>;
    print "Enter Your Year Level : ";
    chomp ($year = <>);
    if ($year == 1) {
    print("$student you are belong to freshmen.");
    }
    elsif ($year == 2) {
    print("$student you are belong to sophomore.");
    }
    elsif ($year == 3) {
    print("$student you are belong to juniors.");
    }
    elsif ($year == 4) {
    
    print("$student you are belong to seniors.");
    }
    else {
    printf("Invalid Year Level Please Try Again.");
    }
    print "\n\n";

		</xmp>