Select Code to Download

open (LOGFILE, "< $logfile") or die ("Could not open $logfile: $!");

$thiscust = (split /\//, $fields[4])[1];
if ( ! $cust{$thiscust} ) {
...
}
my $fh = $cust{$thiscust};
print $fh $_;