Select Code to Download

$times = system( "find /c 210.55.54.33 c:\logs\log.log");

use strict;
open ( LOG, "C:\logs\log.log" ) or die "Opening file, $!";
my $count = scalar( grep( /210\.55\.54\.33/, <LOG> ) );
close LOG or die "closing file, $!";