Create count.pl