Select Code to Download

use strict;
use warnings;
...
   while not eof $inFH;

print for @records[ 0, 3, 1, 2, 4, 5 ];

#EXTM3U
#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=700000
...
1500.m3u8
#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=2500000
2500.m3u8