sub new{
        my $self ={};
        $self->{FILENAME} = $_[1];

        # snip

        bless($self);
        return($self);
    }

##</code><code>##

    sub new{
        my ($class,$filename) = @_;
        my $self;
        $self->{FILENAME} = $filename;

        # snip

        bless $self, $class;
        return $self;
    }