Hi

I have wrote this about a monk, what he will do once he is sitting infront of his machine and have a little bit time ,see the poem

#!/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);
                }
        }
    }
}
[download]

Thanks and Regards,
madtoperl.