#!/usr/bin/perl
if($freetime){
	&searchperlmonks;
	if($reply eq 'good'){
			$reputation++;
	}else{
			$reputation--;
	}
        print"Reputation=> $reputation\n";

}

sub searchperlmonks{

	open nlink, "seekers of perl wisdom";
	while(<nlink>){
		if($node =~ /newnode$/){
				 if($knowanswer){
						$replynode = 'true';
				}else{
						$replynode = 'false';
						push(@mind,$newnode);
				}
		}
	}
}