#!/usr/bin/perl
use strict;
use warnings;

my $ffmpeg_command="ffmpeg -y -f concat -safe 0 -i image_list.txt -i palette.png -filter_complex \"[0:v]scale=1936:-1,setsar=1[vid];[vid][1:v]paletteuse\"  save_name%04d.png";
system($ffmpeg_command);
