...
   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";
...