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

        # snip

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