use Time::localtime; $b = localtime->year() +1900 ;
print "What year were you born in?\n"; $a = <STDIN>; chop($a); $age = ($b - $a) ; print "You are $age years old!\n"; -- Date: August(VIII) 12th(XII),2002(MMII) !****************************************! !****************************************! ! Catacomb (n.) - used for brushing cat ! ! hair. ! !****************************************! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
