package Agency;

sub new {
	my $class={};

	$class-> {agency}=undef;
	$class->{url}=undef;
	$class->{pass}=undef;
	$class->{fail}=undef;
	$class->{new}=undef;
	$class->{module}=undef;

	bless $class;
	return $class;
}

sub init {

	my $class=shift;
	$class->{agency}=shift;
	$class->{url}=shift;
	$class->{pass}=shift;
	$class->{fail}=shift;
	$class->{new}=shift;
	$class->{module}=shift;
}

sub display {

	my $class=shift;
	print "Agency: $class->{agency}  URL: $class->{url}  Pass: $class->{pass}  Fail: $class{fail}  New: $class{new}  Module:  $class->{module}\n"
}

package main;

my $new_agency=Agency->new();

foreach $file (glob('file_name*.txt')) {
	open (FILE,$file)||die ("unable to open $file\n");
	print "working on $file\n";
	while ($line=<FILE>) {
		($ts,$w,$agency,$url,$x,$pf,$module,$z)=(split/\s+/,$line);
		$pf=substr($pf,0,4);  
		   if ($pf eq "pass") {
			   $new_agency->init($agency,$url,$pass_count++,$fail_count,$new_count,$module);
		   }
		   elsif ($pf eq "fail") {
			   $new_agency->init($agency,$url,$pass_count,$fail_count++,$new_count,$module);
		   }
		   elsif ($pf eq "new_") {
			   $new_agency->init($agency,$url,$pass_count,$fail_count,$new_count++,$module);
		   }
	} #while
} # foreach

$new_agency->display();