use Symbol;

sub new {
    my $class_name = shift;
    $classname = ref($classname) || $classname;
    my $self = {
       "output_file" => shift,
       "append"      => shift,
       "file_handle" => gensym(),
    }
    bless ($self,$class_name);
    return $self;     
}

##</code><code>##

     $object->method($arg1,$arg2);

     sub method {
          my $self = shift;
          my $arg1 = shift;
          my $arg2 = shift;
          print "append is ",$self->{"append"},"\n";
          $self->other_method($arg2);
     }

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.