Select Code to Download

#!/usr/bin/perl

use strict;
use warnings;

open (INFO, "<", "$File") or die("Cannot open the flat file");
open(my $LOG,">>LOG_file") or die("Cannot open");
open(XML,">xml_file") or die("Cannot open");

open(my $INFO, '<', $File) or die "Cannot open the '$File': $!;
open(my $LOG, '>>' 'LOG_file') or die "Cannot open 'LOG_file: $!";
open(my $XML, '>', 'xml_file') or die "Cannot open 'xml_file': $!";

while(defined(my $line2 = <$INFO>)) {
}

chomp $line2;

my %config = (
    '00' => {
...
        die "ERROR: Unknown segment '$segment'. Config or data error?"
+;
    }
}

close $INFO or die "Can't close file '$File': $!";
close $LOG or die "Can't close file 'LOG_file': $!";
close $XML or die "Can't close file 'xml_file': $!";