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

sub test {
	my $self = shift;
	my $test = $_[0];   # <-- Line 53
	my @tests = @$test;
	foreach my $line (@_) {
		print $line;
	}
}