Concatenate multiple .ts files into a single file using Ffmpeg

concat_ts

#!/usr/bin/env perl

use File::Temp qw/ tempfile /;
use File::Spec;

sub usage {
    "Usage: $0 INPUT_FILE... OUTPUT_FILE"
}

my $ffmpeg = `which ffmpeg` || `which ffmpeg.exe`  or die "Can't find ffmpeg\n\n@{[ usage ]}";
chomp $ffmpeg;

my $outfile = pop  or die "Can't find output filename\n\n@{[ usage ]}";
@ARGV              or die "Specify at least one input\n\n@{[ usage ]}";

my ($fh, $indexfile) = tempfile(SUFFIX => '.m3u8', DIR => '.');
END{ unlink $indexfile; }

for ( @ARGV ) {
    printf $fh "file %s\n", File::Spec->rel2abs($_);
    print STDERR "file %s\n", File::Spec->rel2abs($_);
}
close $fh  or die "Can't close temp file";

system $ffmpeg, qw/-f concat -safe 0 -i/, $indexfile, qw/-c copy/, $outfile;