Seems like you can do the same without a recursion:

Update: Add "print $fd $_" to preserve original behavior.

sub hostname{
    print $fd $_;
    while (<$fh>){
        if ($_ =~ /^hostname /){
            print $fd $_;
            $tot++;
            next;
        }else{
            $tot2++;
        }  
    }
    $tot++; # keep initial increment
}
[download]