my ($file_listing_pcs) = @ARGV;

#slurp in file
my $data_ref;
while (<$file>) {
  my $pc = $_;
  if ( ping_it($pc) ) {
    ($data_ref) = process_pc($pc,$data_ref);
  }
  else {
    next;
  }
}
# post process data
exit(0);

sub process_pc {
  my ($pc, $data_ref) = @_;
  my ($event_log_data) = get_event_log_data($pc);
  my $dir_path = qq(//$pc/c\$/temp);
  ($data_ref) = process_dir($event_log_data,$dir_path,$data_ref)
  return($data_ref);
}

sub get_event_log_data {
  my ($pc)  = @_;
  # play with Win32::EventLog
  return($event_log_data);
}

sub process_dir {
  my ($event_log_data,$dir_path,$data_ref) = @_;
  # read directory
  # get list of files to read
  # read files
  # plunder data
  # munge it about
  return($data_ref);
}