#!/usr/local/bin/perl
$netvalue = <>;
if ($netvalue < 10) {
	print "Sounds right to me!\n";
}
elsif ($netvalue >= 10 && $netvalue < 40) {
	print "Nope, sounds like we're dealing with a spod, not a turnip!\n";
}
elsif ($netvalue >= 40 && $netvalue <90) {
	print "Sorry, that sounds like a luser, not a turnip!\n";
} 
elsif ($netvalue >=90 && $netvalue <120) {
	print "No way!  This is the IQ of dudes, not turnips!!\n";
} 
elsif ($netvalue >= 120) {
	print "You're joking, right? This is the IQ reserved for a cowboy!!\n";
}
else {
	print "From what you're typing, it seems you *are* a turnip!\n";
}

print "\n\nThank you for using the turnip IQ identification system\n";
print "Don't forget your contribution to the Turnip education fund,\n";
print "Send a check or money order to:\n\n";
print "   Gopher Team c/o Paul Lindner\n";
print "   100 Union St. SE #152";
print "   Minneapolis, MN 55455   USA\n\n";
print "The mind you save could be your own!!\n";

	


