sub _write2file {
    my($self, %args) = @_;
    
    my $content = $args{CONTENT};
    my $fh      = $args{FH};
    
    print FH $content or return;
    
    return 1;
}