print "are you a man? (y/n)";
$man = <STDIN>;