#!/usr/bin/perl

 use Text::ParseWords;                                                   
use Data::Dumper;                                                      

                                                                      

use IO::File;                                                         

#my $file = test.csv;                                                  
my $file  = $ARGV[0];                                                 
my ($output_file) = ($file =~ /(.*)\./);                               
                                                            
open(my $fh, '<', $file) or die "Can't read csv file '$file' [$!]\n";  

my $countlines = 0;   

my $countlines1 = 0;                                                  

while (my $line = <$fh>)
{while (my $line = <$fh>) 
{  chomp $line;
    my @fields = Text::ParseWords::parse_line(',', 0,$line);           
 if($countlines >= 0  && @fields[0]==201120)
{if ( @fields[1]==1){ $countlines1 = $countlines1 + 1;} 


$countlines++; 
    
}                                                     
                                                        
}

print "$countlines\n";
print "$countlines1\n"; 


$yield = ($countlines1 / $countlines)*100 ;

print $yield;                                 

 }