sub new {
    my $package = shift;
    my @fileArray = 'counter.pl';
    if (@_) {
        my $fileArrayR = $_[0];
        @fileArray = @$fileArrayR;
    }

    my $self = {};
    bless $self, $package;

    $self->test(\@fileArray);
    $self->totalBandwith(\@fileArray);

    return $self;
}