package GeneralFile
@ISA = qw()

sub BEGIN

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

sub DESTROY
my $this = shift;

sub IN
my $this = shift;
return $this->{'IN'};

sub OUT
my $this = shift;
return $this->{'OUT'};

sub Close
my ($this) = @_;

sub Open
my ($this, $openstr) = @_;
return $ret;
return $ret;
return open($FILE,$openstr);
return '';

sub GetLine
my ($this) = @_;
return $line;