Select Code to Download

open (INPUTFILE, "<:encoding(UTF-8)", "in.txt") or die "Can't open fil
+e: $!";
for (my $i = 1; $i < 5; $i++) {
...
    }
}
close INPUTFILE;

for (my $i = 1; $i < 5; $i++) {
    open (INPUTFILE, "<:encoding(UTF-8)", "in.txt") or die "Can't open
+ file: $!";
...
    }
    close INPUTFILE;
}

print "First loop:\n\n";
while (<DATA>) {
...
first line
second line
third line