...
   my $dirpath = '/media/blogvideos/youtube/ffmpegconverted/' . $line->{video_id};

    $line->{video_path} =~ s/^\.\///g;

    my $command = 'ffmpeg -i "/media/blogvideos/youtube/' . $line->{video_path} . '" -hls_list_size 0 "' . $dirpath . '/takeout.m3u8"';
    my $mvcommand = 'mv ' . $dirpath . '/takeout.m3u8 ' . $dirpath . '/index.m3u8';

    print "ID:  ", $line->{video_id}, "\n";
    print "DIR: ", $dirpath, "\n";
    print "CMD: ", $command, "\n";
    print "MV:  ", $mvcommand, "\n";
    mkdir $dirpath;
    `$command`;
    `$mvcommand`;
    print "\n\n";
...

##</code><code>##

#EXTM3U
#EXT-X-VERSION:3
#EXT-X-TARGETDURATION:10
#EXT-X-MEDIA-SEQUENCE:0
#EXTINF:5.840000,
/XXXPATHXXX/takeout0.ts
#EXTINF:1.400000,
/XXXPATHXXX/takeout1.ts
#EXTINF:3.600000,
/XXXPATHXXX/takeout2.ts
#EXTINF:9.400000,
/XXXPATHXXX/takeout3.ts
#EXTINF:3.960000,
/XXXPATHXXX/takeout4.ts
...

##</code><code>##

#EXTM3U
#EXT-X-VERSION:3
#EXT-X-TARGETDURATION:10
#EXT-X-MEDIA-SEQUENCE:0
#EXTINF:5.840000,
/XXXPATHXXX/takeout0.ts
#EXTINF:1.400000,
/XXXPATHXXX/takeout1.ts
#EXTINF:10.00000,
/wife/reminders/feedthedog.ts
#EXTINF:9.400000,
/XXXPATHXXX/takeout3.ts
#EXTINF:60.00000,
/wife/reminders/take_out_the_trash_NOW.ts
#EXTINF:3.960000,
/XXXPATHXXX/takeout4.ts
...