Select Code to Download

  my @fields = split /\s+/, $templine;

  # do something with $fields[0], $fields[4], etc ..

  my %record;
  @record{qw/group ac g f start end time mb files l kb/}
      = split /\s+/, $templine;

  # do something with $record{group}, $record{f}, $record{end}, etc..

  use strict; # hint hint
  my $file = 'c:\somepath\somefilename';
...
    }
  }
  close(FILE);