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

        # snip

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