Select Code to Download

open(FILE,'<some_file.txt'); 
for((<FILE>)[0..5]){
    print;
}

open(FILE,'<some_file.txt') or die("cant open file: $!"); 
my $data;
...
   }
}
close FILE;