package Molecule
@ISA = qw()

sub BEGIN

sub new
my ($module) = @_;
return $this;

sub DESTROY
my $this = shift;

sub SetOutputMode
sub SetOutputMode { my ($this, $mode) = 
return $this->{OutputMode} = $mode;

sub OutputMode
sub OutputMode    { my ($this) = 
return $this->{OutputMode};